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Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 
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Guida per l’input dei programmi versioni VIC IO e C64 


Notate che i listati contengono “parole " rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico ^, solltario ,, , 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 
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Typlng derby 


Molto spesso le riviste che pubblicano program¬ 
mi per i computer più diffusi, riportano listati 
molto lunghi che richiedono molto tempo per 
essere trascritti, specialmente per chi usa solo 
poche dita nella battitura. 

Questo simpatico programma oltre ad insegna¬ 
re come battere con tutte e dieci le dita, utiliz¬ 
za un divertente metodo di esercitazione che 
rende facile e interessante l'apprendimento. 
Infatti, dopo aver mostrato quali tasti deve pre¬ 
mere ciascun dito delle mani, visualizza una 
pista da corsa dove trottano due cavalli: uno 
(quello nero) è spostato di tanto in tanto dal 
computer, l'altro viene mosso di una posizio¬ 
ne ad ogni tasto premuto correttamente sulla 
tastiera. 


2 PRINTCHRS(147)"{ 5 DES) 

{ 5 GIU ' J {RVS}{RED}TYPING DERB 
Y{OFF)":PRINT"{ 6 GIU'} INSTRU 
ZIONI ? (S=SI) 

4 GETA$:IFA$*""THEW4 

6 IFA$»"S"THKNGOSUB401 

8 PRINT"{HOME}{ 20 GIU'} 

{ 2 DES){BLK }DIFFICOLTA * : (1—13 
)":INPUTL1 :1ELI<IORLI>13THEN4 

10 DIMC(3)sC( 0)»38488:C(1)=385S4 
sC(2)-38620sH-7768:H)=7790sJ« 
801 0-.R-32 

11 L»Lls S“(220*(Li - 1)) + (10*-(Ll> 
1)):GOTO20 

16 PRINT" (CLR) { 3 GIU’H 3 DES} 

ANCORA (S/N) ?" 

17 GETX$sIFX$«.I'HENl 7 

18 IFX$»"N"THENEND 

20 IFS* 2880TI1ENPRI NT"{ 4 DES} FI 
NE. "SENO 

21 M = 0:N»0:N1*0 :IFS>220*LTHENL=L 
+1:L1-Ll+1sR-32 

22 PRINTCHR$(147):POKE36879,219: 
PRINT"{BLK)PUNTIS{RVS}"S" 
{OFF} LIV. {RVS}"Ll"{OFF}" 

30 FORI*0TO3:PRINT"{GIU' } 

{< 22 R>}":NEXTt PRINT" 

{ 3 SU}{ 2 SIN}{RED}{<*>} 

{GIU*}{SIN}{<M>1" 

40 PRINT" { 10 GIU’H 5 DES} {RVS} 
TYPING DERBY{OFF}{BLK}"; 


Per sapere quali tasti premere, vengono visua¬ 
lizzate in fondo allo schermo 3 righe di carat¬ 
teri. 

Partendo dall'inizio il giocatore dovrà premere 
i tasti guardando la sequenza. 

Ogni lettera della sequenza battuta corretta- 
mente cambia colore e si può passare alla let¬ 
tera successiva. 

In questo gioco sono disponibili 13 livelli di dif¬ 
ficoltà selezionabili all'inizio della partita. 
Quando si vince la corsa vengono conquistati 
10 punti. 

Se si riesce a battere il cavallo del VIC 20 per 
23 volte, si passa automaticamente al livello 
successivo. 

E allora... buona battitura!! 


SO FORI=1TOL:READDS:NEXT:RESTORE 
SPRINT"{HOME}{ 15 GIU'}{BLU}" 
D$ 

52 IFL=6THENPOKE8015,44sPOKE8067 

,44 

53 IFL=7THENPOKE8023,44 

54 IFL=8THENFORI = 0TO6STEP2 s POKE8 
010 + 1,58 s NEXT 


55 IFL=8THENPOKE8031,44sPOKE8070 
,58;POKE8072,58 

56 IFL=9THENPOKE8046,58 

60 FORI=0TO2:FORT=0TO21:POKEC(I) 
+T,2 :NEXTT:NEXTI:POKKH,94 
70 FORI=0TO2sFORT=0TO21 :POKEC(I) 
+22+T,0 :NEXTTs NEXTIs POKEH1,94 

80 IFN=0ANDM=0ORS=(220*L)+10THEN 

GOSUB300 

90 IFM=21ORM=87THENMl=M s M=M+44 
100 IFPEF.K (Hi+M+1 ) <>32THENl 6 
110 I FTl >T*RTHENPOKEHl -*M1 , 32 » POK 
Ehi+m f 32 iM*M+ 1iPOKEH1»M,S 4iT 
«TI 

120 CETA$:lFA$"THEN9U 
130 1FASO(AO)*P£EK(J+Nl)THKNl50 
140 I KAiiC (/W ) OPEEK (J <Nl ) 164T1IEN 
90 

150 POKE3B7JO + Nl,2sNl«Nl+lsIFN«2 
1 ORN = 87THENN2 = N s N*N+45 
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J 60 POKEH+N,32:POKEH+N2,32:N=N+l 
:IFPEEK(H+N)<>32THENS=S+10:R 
= R-1 :GOTO16 


170 POKEH+N,94 : GOTO90 


200 

DATAPRF 

FTF 

FGF 

FBF 

FVF 

FRF 


FTP FGF 

FQF 

FVF 

FRF 

FTF 

FGF 


FtìF FVF 

FK 





210 

DATADKD 

DCD 

FRF 

FTF 

FGF 

FBF 


FVF UFD 

ncu 

FRF 

FTF 

FGF 

FBF 


FVF UEO 

oc 





220 

UATASWS 

SXS 

DKD 

DCD 

FKF 

FTF 


FGF FBP 

FVF 

SWS 

SXS 

DKD 

DCD 


F RF FTF 

FG 





230 

DATAAGA 

AZA 

S WS 

SXS 

DKD 

DCD 


FKF Fl'F 

FGF 

AUA 

AZA 

SWS 

SXS 


DKD OCO 

FK 





240 

DATAJUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 


AZA SWS 

SXS 

DKD 

DCD 

JUJ 

JYJ 


JHJ JNJ 

JM 





2 bO 

DATAK1K 

KIK 

JUJ 

JYJ 

JHJ 

JNJ 


JMJ AUA 

AZA 

SWS 

SXS 

DKD 

DCD 


K1K KiK 

FK 





260 

DATA 1,0 L 

L.L 

KIK 

KIK 

JUJ 

JYJ 


JHJ JNJ 

JMJ 

AQA 

AZA 

SWS 

SXS 


FTP LOL 

L. 





270 

DATA;P; 

;/; 

LOL 

L.L 

KIK 

KIK 


JUJ JVJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA 


SWS SXS 

;p 





280 

DATAA11 

S2 2 

D33 

F44 

F55 

J66 


J77 K88 

L99 

; 00 

ZI 1 

X22 

C33 


V44 V55 

N6 






281 DA'l’ASE SE SE TU TU TU ADESSO 

ADESSO VUOI VUOI, NOI NOI C 
ORBIAMO... 

282 DATAORA ORA SI SI PUÒ' PUÒ' 
PUÒ' GIOCARE SI' SI' NOI NOI 

GIOCHIAMO 

287 DATAQUESTA PICCOLA VOLPE MAR 
RONE CORRE VELOCE ED E' MOLT 
0 FURBA! ! ! 

290 DATAQUESTA CORSA POTREBBE TE 
RMINARE IL GIOCO SE NON SBAG 
LI . CIAO!! 

300 V=36878:S2«36875:POKEV, 1 5: PO 
KES2,17 3 :FORX=1TOl50:NEXT:PO 
KEV, 0 

330 POKEV,15:POKES2,194:FORX=lTO 
150:NEXT:POKEV,0 

340 POKEV,15:POKES2,206 :FORX=1TO 
150 :NEXT:POKEV,0 

350 FORI=0TO2:POKEV,15:POKES2,21 
4iFORX»ITOl50iNEXTtPOKEV,OiN 
EXT 

360 fOK3 »0TO2l POKEV, l 5l l'Oltes2,20 
61 PORX* I To I SOiNEXTl POKGV,0iN 
EXT 

370 POKEV, 1 5 ■ POKF.S2 , 1 94 : FORX-lTO 
150iNKXTlPOKEV,0 

380 POKEV,ISiPOKES2,206 :FORX* 1 TO 
150:NEXT:POKEV,0 

385 POKEV,15:POKES2,194 :FORX=1TO 
150:NEXT:POKEV,0 


390 POKEV,15:POKES2,173:FORX=lTO 
1 800:NEXT:POKEV,0 : RETURN 

401 REM ISTRUZIONI 

411 PRINTCHR8(147)CHR$(142)" 
(RVS)(CYN|( 5 OES){GIU')TYPI 
NG DERBY{BLK)(OFF){BLU)" 

412 POKE36879,232 

414 PRINT" {GIU 1 } ( 3 DKSHWHT) 

(RVS)Q{ 13 DES)Q":PRINT" 
(RVS)T 2 DES) Q3Q{ 11 DES}Q8 

Q" 

415 PRINT"(RVS)| 2 DES)2K4 
{ 11 DES)619" 

416 PRINT"iDKS)(RVS)UWD5 

{ 11 DES)7KOQ";PRINT"(DES) 

{RVS)1SCR( lT DES)Y,LO 

418 PRINT"(DES)(RVS)QX TQ 

{ 9 DESlQU .P":PRINT 1 * (DES) 

(RVS)A{ I SPAZI)F { 9 DES) 

{WHT)M{ 2 SPAZI):" 

420 PRINT"(DES){RVS)Z( 2 SPAZI) 

G (WHT)l 9 DES) J{ 2 SPAZI) 
/":PRINT"(DES)(RVS) 

( 3 SPAZI)V ( 9 DES) (WHT)M 
( 3 SPAZI}" 

422 PRINT"(DBS)(RVS)( 3 SPAZI)B 
( 9 DES) (WHT}N( 3 SPAZl)":P 
RINT"(DES)(RVS){ 4 SPAZI) 
(OFF)E( 9 DES)(<*>)(RVS) 

( 4 SPAZI}" 

424 PRINT"(DES)(RVS)l<H>) 

( 3 SPAZI}( 11 DES) 

( 3 SPAZI)(<N>]" 

426 PRINT"(DES)(GIU 1 )(RVS)SINIST 
RA( 6 DES}DESTRA":PRINT" 
(DES)(GIU'}I POLLICI PREMONO 
LA" 

428 PRINT"BARRA E GLI SHIPT/CRSR 
{BLK}( 3 SPAZI}PREMERE UN TA 
STO"; 

430 GETA$:IFA$=""THEN430 

432 RETURN 
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W&WÌ 

Slalom 

Joystick 


A questo gioco possono partecipare fino a die¬ 
ci persone. Come in un vero slalom la gara è 
divisa in due manches, e i concorrenti effet¬ 
tuano a turno la discesa; naturalmente la clas¬ 
sifica finale è compilata in base alla somma 
dei tempi. Lo sciatore è rappresentato da un 
pallino giallo nella parte bassa del video, le por¬ 
te da rombi rossi e blu e il traguardo da un 
carattere "a scacchiera”. Il percorso scorre at¬ 
traverso lo schermo dall'alto verso il basso, e 
quindi le porte vengono verso lo slalomista, che 
può solo spostarsi lateralmente. Se egli urta una 
delle porte o passa dalla parte sbagliata viene 
squalificato, il numero di porte di ogni percor¬ 
so (da 2 a 98) viene selezionato prima dell'ini¬ 
zio di ogni manche; la distanza tra le porte è 
variabile ed ogni nuovo percorso viene genera¬ 
to in modo casuale, anche se naturalmente ri¬ 


io DIMP%(100), Q%( 100), A$ (10 , 4) 

20 POKE36879,25:SP=36876:M=l:SC = 
30720:POKESP+2,1 5 
30 PRINT"(CLtt){BLU}NUMERO CONCOR 
RENTI":INPUT" (MAX 10)";NC:IF 
NC< 1 ORNO 1 OTHENPRINT" { 2 SU} 
GOTO30 

40 PRINT"{ 2 GIU'}INTRODURRE I N 
OMI{ 6 SPAZI}(MAX 6 LETTERE) 
{GIU'}": FORI » 1 TONO 
45 PRINTI ; :INPUTA$(1,1):IFLEN(A$ 
(l, 1 ) ) >6TIIENPK1NT" { 2 SU}":GO 
T045 
48 NEXT 

50 E$ = "PRIMA":IFM=2THENE$»"SECON 
DA" 

60 PRINT" {CI.K } {OKI? } (GKN } 

{ 2 GIU'}N.PORTE "E$" MANCHE" 

70 INPUT" (PARI)";NP:IFNP>9BORNP 
< 20RINT(NP/2)»2<>NPTHENPRINT" 
{ 2 SU}":GOTO70 

80 NP=NP+1:FORI-lTONP:P%(I)=INT( 
RND( 1 ) *6)+2 :NEXT:C=1:GOTOl15 
110 GOSUB800 
115 IFM=1THENl26 
120 IFA5(C,2)=""THENl23 

122 GOTO126 

123 C=C+1 : IFONCTHEN470 
125 GOTO120 


mane lo stesso per tutti i concorrenti. 

Per pilotare lo sciatore si usa il joystick: a sini¬ 
stra e a destra per il movimento, in su per ac¬ 
celerare ed in giù per rallentare. In ogni caso 
la velocità tende ad aumentare essendo ovvia¬ 
mente la pista in pendenza. Ogni concorrente 
è indicato col suo nome, ed alla fine di ogni 
discesa compare il tempo impiegato e il piaz¬ 
zamento. In entrambe le manches viene an¬ 
che visualizzato, come nelle gare reali, il tem 
po necessario per passare in testa. L'ordine di 
partenza nella seconda manche segue la clas¬ 
sifica della prima. Per partire, il concorrente 
deve muovere il joystick in una direzione qual¬ 
siasi; alla fine di ogni discesa premendo il pul¬ 
sante si vede la classifica, e premendolo nuo¬ 
vamente si passa alla discesa successiva. 


126 PRINT"{CLR}{CYN}{RVS}***** 

{ 3 SPAZI}SLALOM{ 3 SPAZI}** 
***":FORI-38476T038894STEP22 
:POKEI,2:POKEI+!,6:NEXT 
130 PRINT"{PUR}"A$(C,1):1=1 
140 IFA$(I,M+1)='"'THEN1 = 1 + 1 :IFI< 
NCTHENl40 

150 Z=VAL(A$(I,2))+VAL(A$(1,3))- 
VAL(A$(C,2)) 

160 IFOITHENPRINT" (BLU } {HOME} 
{GIU'}"STR$(INT(Z/100))CHR$( 
34) RIGHT$(STR$(Z),2) 

170 G= 81 74:P=7756:POKEP,90 :POKEG 
,81 :POKEG+SC,7 : FORI=1TONP:Q% 
(I)=P:P=P+SGN(7756.5-P):NEXT 

180 GOSUB1000:IFP0=156THEN180 
190 FORJ=1T03:POKESP,150:FORI=lT 
050 :NEXT:POKESP,0:FORI = lTO70 
0:NEXT:NEXT 

200 POKESP,2(JIUF0Rl»lTO30(tiNgXTl 
POKESP,010-0:0-1:w»TIiL-500: 
R«1:POKESP+1,250 
210 L“L - 4 i I FR>NPTHENR=’NP 
220 FOKl*QTufi:F-UMI) :S»PBKK(F) : 
POKER, J2: F-Ft-22 l IFIO81 75THKN 
Q-O* 1 :COT<)24 0 
230 POKEP,S 

240 Q%(I)=F:NEXT:IFD=P%(R)THEN26 
0 
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250 D=D + 1:GOTO280 

260 D=0:R=R+1 :IFR=NPTHENPOKEQì(H 
)» 102 :GOTO280 

270 POKEQ%(R),90 

280 IF(PEKK(8174)»90ANDG< *8174)0 
R(PKKK(8175)«90ANDG>=81 75)TH 
EN350 

290 IFPEKK(8174)»102THEN370 

300 POKEC..8I : POKEG+SC, 7 : FORI * 1TO 
L : NKXT:GOSUbI 000 :IFP0-156THE 
N210 

310 IFPU-OTHKNPOKEG,32:G-G+1:GOT 
0330 

320 IF(PSANDl6)-OTHENPOKEG,32:G- 
G-l 

330 IFPO»152ORP0»136ORP0=24THENL 
»L-20:GOTO21 0 

340 IFPO-148OHP0»132OKP0-20THENL 
=L+20:GOTO210 

345 GOTO210 

350 POKESP-*-1,0 : POKESP, 1 30 : FORI «1 
TOl000 :NKXT:POKESP,0 

360 PRINT"{HOME){GRN}{ 10 GIU*} 

{ 5 SPAZI}IKVS}SQUALIFICATO" 
:GOTO470 


370 A$(C,M+1)= STR$(INT((TI-W)*5/ 
3)):IFM«2THENA$(C,4)= STR$(VA 
L(A$(C,2)) +VAI. ( A$ (C , 3) ) ) 

390 PRINT"{PUR){HOME}{ 2 GIU'}"T 
AB(16)STR$(INT(VAL(A$(C,M+1) 
)/100))CHRS(34)RIGHTS( A$(C,M 
+ D , 2 ) 

400 POKESP+1,0 :POKESP,240 :FORI»! 
TOl000 :NEXT:POKESP,0:IFOlTH 
EN470 

410 FORICITO4:M$(I)=A$(C,I):NEXT 
:J = 1:JK=1:A=M+1:1FM=2THENA=4 


420 IFVAL(M$(A))>VAL( A$(J,A))AND 
A$( J, A)<>""THENJ=J+1:JK=JK+1 
:GOTO450 

430 IFA$(J,A)=""THENJ=J+1:GOTO45 
0 

440 FORI»CTOJ+lSTEP-1:FORK=lT04: 
AS(I,K)= AS(1-1,K):NEXT:NEXT: 
GOTO460 

450 IFJ<CTHEN420 

460 FORI»1T04:A$(J,I)=M$(I):NEXT 
: PRINT" (HOME) |t)LK) ( 3 GII)' ) 

IRVS)"JK 

47U C-Cl 1 t II’’C<*NCTHENGO8UB8Q0 IGO 

TOl 1 9 

480 COSt>ò800:M*M-< I l IPMOTHEN50 

485 PRINT"IHOmEI{ 22 GIU'){RE») 

{RVS1 {8LU)DETURN{RE») PER G 

IOCARÈ "i 

490 GETCS: IFCS< >CHR$(13)THEN490 

500 M= 1 : FORI = 1TONC:F0RJ«2T04:AS( 
I , J)="":NEXT:NEXT:GOTO50 

800 GOSUB1000:1FPF=32THEN800 

801 IFP0O1 56THEN801 



805 PRINT"{CLR}{BLK}{ 5 SPAZI) 

{RVS)-CLASSIFICA-{GIU 1 )":J=0 
:A=M+1:IFM=2THENA=4 

810 FORI = l'TONC: IFVAL( AS(I,A))»0T 
HEN870 

815 PRINT"{BLK}"; 

820 J=J+1:PRINTRIGHT$(STRS(J),2) 
" - "AS(1,1); 

830 PRINTTAB(16)STR$(INT(VAL(AS( 
I ,A) )/100) ) CIIRS (34) RIGHTS (AS 
(I » A),2) 

840 IFM=1THKN870 

850 PRINT"(SU){REO){ 2 SPAZI}("S 
TR$ ( INT(VAI.(A$ (1,2) )/100) )CH 
R$(34)RIGHTS(A$(I,2),2)" +"; 

860 PRINTSTKS(INT(VAL(AS(I,3))/l 
00))CHRS(34)RIGHTS (A$ (1,3),2 
>" )" 

870 NEXT:FOR1*1TOl 000 :NEXT 

880 GOSUB1000:IFPF-32THEN880 

890 RETURN 

1000 POKE37!54,127:PD=PEEK(37152 
)ANUl28:POKE37154,255:PF=PE 
EK(37137)AND60 

1010 PS»(PFAND28):P0=PD+PS:PF=PF 
AND32:RETURN 


Aspettiamo 
i tuoi 
lavori 
migliori! 


« 
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CI6— pius/qj 

Snap 


S nap è un gioco adatto a persone di tutte le 
età. 

Esso è, in pratica, un test di riflessi celato in 
un gioco d'azione molto divertente. 

In Snap vengono mostrati due mazzi di carte 
di cui viene scoperta una carta alla volta, il cui 
valore è visualizzato al centro della carta stes¬ 
sa. 

Quando due carte uguali vengono scoperte, bi¬ 
sogna prontamente premere un tasto. 

Se si è abbastanza veloci si vincono un nume¬ 


1 REM SNAP BY A h, A SOFTWARE 

5 COLOR4,3,4:COLORO,2,6:VOL8 

10 GOSUB1200 

20 GOSUB750 

25 GOSUBlOO 

30 GOSUBl50 

35 GOSUB500 

40 GOSUB260 

50 GOSUB210 

55 GOSUB500 

60 GOSUB260 

70 GOTO30 

100 PRINT"(CLR}" 

105 COLORI,7,3 

110 PRINT"{ 8 DES}{RVS}[<A>1 

{ 5 *} r <S>) { 10 DES) [<A>] 

{ 5 *)(<S>1" 

111 PRINT"{ 8 DES}{RVS}-U 

# { 3 1 ) 1^1 10 DESJ-UT3 Ml_- 

112 PRINT"{ 8 DES}{RVS}{ 2 -} 

{ 3 SPAZI}{ 2 -}{ 10 DES} 

{ 2 -) { 3 SPAZI } { 2 .-}" 

113 PRINT"{ 8 DES } { RVS } { 2 _-} 
l <D> ] l <I> J [<F>] ( 2 -} 

{ 10 DES} ( 2 } (<D>TI <I > ] 

1<F>}{ 2 -)" 

114 PRINT"{ 8 DES}{RVS}{ 2 -.} 
{OFF}(<K>){RVS} [<K> J 

{ 2 -){ 10 DES}{ 2 -}{OFF} 

£<K>} {RVS} {<K>}{ 2 -}" 

115 PRINT"{ 8 DES}{RVS}{ 2 -} 
[<C>](OFF)(<I>){RVS}(<V>J 

{ 2 -}{ 10 DES}{ 2 -} [<C>) 
{OFFTl<I>l{RVS}1<V>){ 2-} 

N 


ro di punti corrispondenti al numero di carte 
scoperte fino ad allora. 

Altrimenti il vincitore sarà il caro CI6. 

Ciò accadrà anche se viene premuto un tasto 
quando le due carte sono diverse. 

Vince chi dei due raggiunge per primo i 100 
punti. 

Ed ora si può dare il via ad una partita "snap- 
posa" e non c'è da preoccuparsi perché il Ciò 
non è un baro!! 


116 PRINT"{ 8 DES}{RVS}{ 2 -} 

{ 3 SPAZI} { 2 _-} { 10 DES} 

{ 2 _-} { 3 SPAZI}{ 2 -}" 

117 PRINT"{ 8 DES}{RVS}-J 

{ 3 M K-^{ 10 DES}^JT3 «)K- 

II 

118 PRINT"{ 8 DES}{RVS}[<Z>] 

{ 5 *}{<X>){ 10 DES}[<Z>] 

{ 5 *}(<X>]" 

140 RETURN 

150 B=INT(RND(1)*10)+48 
160 C=0:F=F+1 
180 POKE3283+C,B 
200 GOSUBl000:RETURN 
210 D=INT(RND(1)*10)+48 
220 C-l7:F-F«1 
230 POKE Ì2U JlCfl) 

250 GOSUBl000tRETURN 
2b0 GETE0 

270 I FU< >DANt)E$< >" "THEN 350 
275 IFU<>UTUENE$-"0": RETURN 
280 IKK$■""THKN 350 
290 PRINT"(HOME){ 12 GIU'){BLK} 
{RVS}MI HAI BATTUTO{BLU}" 
300 PS=PS+F:F=0 
310 GOSUB500:GOTO370 
350 PRINT" {HOME) { 12 GIU’HBLK} 
{RVS}TI HO BATTUTO{BLU}" 

360 CS=CS+F:F=0 
365 GOSUB500 
370 POKE3551+G,32 
380 G=G+1 
390 IFG=15THEN410 
400 GOTO370 

410 PRINT"IL TUO PUNTEGCIO*"PS 
420 PRINT"IL MIO PUNTEGGIO*"CS 


IO 












425 G=0 

430 IFCS>100THEN550 
440 IFPS>100THEN650 
450 RETURN 
500 FORZ-1TOZZ:NEXT 
510 RETURN 
550 REM 

560 PRINT" (RVS} { 12 DES}TI HO BA 
TTUTO 11" 

590 GOSUBlOOO 
600 FORICITOl000 :NEXT 
620 PRINT"{CLR}( 2 GIU'JVUOI SFI 
DARMI ANCORA UNA VOLTA 
{ 2 SPAZI}(S/N) ?" 

625 GETA$:I FA$ = ""THEN625 

626 IFA$="S"THENFORU=1T02000:NEX 
T: RUN 

627 IFA$="N"THENPRINT"{ 2 GIU'} 
{RED}AVEVI PAURA DI NON REGG 
ERE AL CONFRONTO?",," 

{ 2 SIN} (S/N)" 

628 GETA$: IFA$ = ""THEN628 

629 IFA$*"S"THENPRINT"{GRN} 

{ 2 GIU'}ALLORA SEI PROPRIO 
UN POLLO DA CORTILE! !" : END 

630 IFA$="N"THENPRINT"{ 2 GIU'} 
(RED)ALLORA SU, FORZA, VOGLI 
O PROPRIO VEDERE!" 


63) KORU*1T02000:NEXT:RUN 
650 REM 

660 PRINT"{RVS}{ 12 DES}MI HAI B 
ATTUTO !" 

690 GOSUBlOOO 

700 FORI = 1TO1000 :NEXT 

710 GOTO620 

750 GOSUBl00 

760 PRINT"{ 2 GIU'}" 

770 PRINT"{ 15 DES}{BLK}***SNAP* 
* * •« 

780 K-K f1 :GOSU050 0 
790 IFK»*iTHP.NRKTUHN 
800 GOSUBlOOO 

810 goto/7u 

1 000 SOUNDl ,169,5 
1020 RETURN 

1 200 PBJNT" ICI.R) (BLU) " 

1210 PKlNT:PRINT 

1220 PRINT"{ 10 SPAZI}DIFFICOLTA 
' (1/1000){ 10 SPAZI}{GIU'} 

"{SIN}(1 »DIFF./H>00 = FACU, 
E) 

1230 INPUTZZ 
1240 RETURN 



Vi presentiamo una nuova versione del 8 rea- 
kout, il famoso gioco in cui si devono demolire 
muri di mattoni con una palla. È possibile se¬ 
lezionare, oltre alla larghezza della racchetta 
usata per colpire la palla (3 oppure 2), anche 
tre diverse configurazioni dei muri. La prima 
è quella classica, con un solo muro posto nella 
parte superiore dello schermo; nella seconda 
i muri sono due, uno in alto e l'altro in basso; 
la terza, infine, è la più spettacolare, in quan¬ 
to abbiamo addirittura quattro muri situati ai 


20 DN$="{HOME}{ 24 GIU’} 
{ 39 DES}" 

30 SC*3072:NB=9:GOTO330 


quattro angoli del video. 

Avete a disposizione nove palle: ne perdete una 
ogni volta che non riuscite ad intercettarla con 
la racchetta (in qualsiasi direzione la palla si 
muova). Guadagnate 2 punti per ogni matto¬ 
ne colpito usando la racchetta grande, e 3 pun¬ 
ti se utilizzate quella piccola. Se riuscirete ad 
abbattere 100 mattoni potrete continuare la 
partita in un nuovo schermo con altri muri da 
distruggere, e cosi via. 


40 GOTO20 

50 VOL8:SOUND2,FF,5:RETURN 
60 REM 










70 GETA$:IFA$*" M THENA=64 
80 IFA$ = "I M THENA=12 
90 IFA$="F"THENA*36 
100 IFA=64THENl70 

1 10 PRINTLEKT$(DN$ , BV)RIGHT3(DN$ 

, QH ) ; ; FORI ■*! TOtìS : PRINT" :N 
EXT 

120 BH-BH+((A«l2)-(A-36))*2 
130 IFBH< 8THENBH» 8 
140 IFBH>38-BSTHENBH=38-BS 
150 PRINTLEFTS<t)N$,BV)RIGHT$(DN$ 

, BH); : FORI«lTOBSSPRINT"{BLK) 

1<U>]“; :next 

160 REM 

170 BX=BX+DX:BY=BY+DY:FF» 21 
180 IFBX<9THENDX»-DX:GOSUB50:GOT 
0230 

190 IFBX> 36THENDX=-DX:GOSUB50:GO 
TO230 

200 IFBY< 1 THENBY»1 :DY=-DY: COSOB5 
0 :GOT02 30 

210 IFBY>23THENBY=23:DY=-DY:GOSU 
B50 
220 REM 

230 POKEBA,32:BA=SC+BY*40+BX 
240 IFPEEK(BA)=120THENBA=B1 : DY = - 
DY:FF=133:GOSUB50: GOTO60 
250 IFPEEK(BA)=207THENDY=-DY:FF= 
35:GOSUB50:GS=GS+S-BSSPRINT" 
{HOME){BLK){ 4 GIU’}"GS 
260 POKEBA,81 
270 REM 

280 IFGM»1ANDBY> 22ANDDY»-1THENNB 
= NB-1s PRINT"{HOME) 

{ 12 GIU'){BLK)"NB 
290 IFGMOl ANDBY»! 2THENNB=NB-1 sP 
RINT"{HOME){ 12 GIU'){BLK)"N 
B 

300 IFNB<1THEN1090 
310 NS=GS/{100*(5-BS)+1)sIFINT(N 
S) ONSTHEN60 

320 ONGMGOSUB830,900,990 
330 REM 

340 COLOR4,3,6 SCOLORO,3,6s PRINT" 
|CLR)l 2 GIU')(BLK)"TABI19)" 

8(grn)q m 

345 FORT*lTOl00sNEXT 
350 PRINT"ICLR)l 3 GlU'I{BLK)"TA 
B(18)"Ò {GRNjQ" 

355 FORT*ITO 100 s NEXT 
360 PRINT"(CLR)l 4 GIU'){GRN}"TA 
B(17)"Q{BLK)Q {GRN)Q{BLK)Q" 
365 FORT=1TOl00 s NEXT 
370 PRINT"{CLR){ 5 GIU'){GRN}"TA 


B ( 16)"Q {BLK)Q {GRNjQ {BLK) 


Q» 

375 FORT»1TOl00sNEXT 
380 PRINT"{CLR}{ 6 GIU')(BLK)"TA 
B(15)"Q{GRN)Q {BLK)U {GRN)Q 
{BLK}Q{GRN)Q" 

385 FORT»1TOl00:NEXT 


390 PRINT"{CLR){ 7 GIU'){BLK}"TA 
B(14)"Q {GRN)Q {BLK)Q {GRN) 

q {blkTq {grnTq" 

395 FORT»1TOl00sNEXT 
400 PRINT"{CLR){ 8 GIU'){GRN}"TA 
B(13)"Q{BLK)Q {GRNjQ {BLK)Q 
{GRN)Q {BLKÌQ {GRnTQ{BLK)Q 

II 

405 FORT»1TOl00sNEXT 
410 PRINT"{CLR){ 9 GIU'){GRN)"TA 
B(12)"Q {BLK)Q {GRN)Q {BLK} 

Q {GRN?Q {BLKÌQ {grnTq {BLK) 
Q" 

415 FORT»ITO100:NEXT 
420 PRINT"{CLR}( 10 GIU'){BLK}"T 
AB(11)"Q{GRN}Q {BLK)Q {GRN} 

q {blk)q {grnTq {blkTq Igrn) 

Q {BLK)Q{GRN}Q" 

425 FORT»1TOl00 s NEXT 
430 PRINT"{CLR}{ 11 GIU'){BLK)"T 
AB(10)"Q {GRN)Q {BLK)Q {GRN} 
Q {BLK)Q {GRNjQ {BLK)Q {GRN} 
Q {BLK}Q {GRN)Q" 

470 FORT»1TO200 s NEXTs FF = 35sGOSUB 
50 

475 PRINT"{HOME}{ 11 GIU’}{BLK}" 
TAB(10)"S" 

480 FORT»1TO200 s NEXTs FF»21 sGOSUB 

50 

485 PRINT"{HOME}{ 11 GIU'}{GRN}" 
TAB(12)"U" 

490 FORT»1TO200SNEXTsFF»35sGOSUB 
50 

495 PRINT"{HOME}{ 11 GIU’}{BLK}" 
TAB(14)"P" 

500 FORT»!TO200 s NEXTs FF=21sGOSUB 
50 

505 PRINT"{HOME}{ 11 GIU’){GRN}" 
TAB(16)"E" 

510 FORT» 1TO200SNEXT: FF» 35sGOSUB 
50 

515 PRINT"(HOME){ 11 GIU'}{BLK}" 
TAB(18)"R" 

520 FORT»!TO200 :NEXTs FF»21sGOSUB 
50 

525 PRINT”{HOME}( 11 GIU'}IGRN}" 
TAB(20)"U" 

530 FORT*1TO200:NEXTs FF»35sGOSUB 
50 

535 PRINT"(HOME){ 11 GIU’}{BLK}" 
TAB(22)"R" 

540 FORT»1TO200:NEXT:FF=35sGOSUB 
50 

545 PRINT" {HOME} { 11 GIU'HGRN}" 
TAB(24)"E" 

550 FORT»1TO200:NEXT:FF»35sGOSUB 
50 

555 PRINT"{HOME}{ 11 GIU’}{BLK}" 
TAB(26)"A" 

560 FORT»1TO200:NEXT:FF = 35sGOSUB 
50 

565 PRINT"{HOME}{ 11 GIU’}{GRN}" 
TAB(28)"K" 
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610 FORT»1T0200:NEXT:FF= 2 1 SPRINT 
"{ 2 GIU 1 )" 

620 GOSUB50 

630 PRINT"{BLK}{ 4 SPAZI}{RVS)SE 
LEZIONA NUMERO SCHEMA (1-3) 

{ 3 SPAZI)": FORT»1TO90:NEXT 
640 PRINT"(SU}( 4 SPAZI)SELEZION 
A NUMERO SCHEMA (1-3) 

{ 3 SPAZIFORT»1TO90:NEXT 

650 GETGM$:IFGM$<"1"THENPRINT" 
(SU)":GOTO620 

660 IFGM$>"3"THENPRINT"{SU}":GOT 
0620 

670 GM=VAL(GM$)SPRINT"{ 2 SIN}"G 
M:PRINT:FF=35 
680 GOSUB50 

690 PRINT"{BLK}{ 2 SPAZI}{RVS}SE 
LEZIONA MISURA RACCHETTA 
{ 2 SPAZI}(2-3){ 3 SPAZI}":F 
ORT=1TO90:NEXT 

700 PRINT"{SU}{ 2 SPAZIJSELEZION 
A MISURA RACCHETTA 
{ 2 SPAZI}(2-3){ 3 SPAZI}";: 
FORT»1TO90:NEXT 
710 GETBS$: IFBS$<"2"THENPRINT" 
{SU}":GOTO680 

720 IFBS$>"3"THENPRINT"{SU}":GOT 
0680 

730 BS=VAL(BS$):PRINT"{ 2 SIN}"B 
S 

740 NB=9:GS=0 
750 FORT»1TO500 :NEXT 
760 PRINT"{CLR}{BLK}{ 7 SPAZI} 
{RVS}{ 11 SPAZI}SUPERBREAK 
{ 11 SPAZI)" 

770 FORI=1T023:PRINT"{ 7 SPAZI} 
{RVS} {OFF}{ 30 SPAZI}{RVS} 

" : NEXT 

780 PRINT"{0LK}{ 7 SPAZI)(RVS) 

{ 32 SPAZI}(HOME)" 

790 PRINT" {HOME) ( 3 Gl I) ’) PUNTI " l 
PRINTGSiPRINT"{ 2 GIU'lRECOR 
D":PR1NTHS:PRINT"{ 2 GIU'JPA 
LEK" 

800 PRINTNIISPRINT" { 2 GIU'}SCHEM 
A":P1UNTGM 

810 PRINT"{ 2 GIU'JMISURA":PRINT 
BS 

820 ONGMGOTO830,900,990 
830 REM 

840 PRINT"{HOME}{ 2 GIU'}{GRN}" 
850 FORJ=lT04:PRINT"{ 8 DES} 

{RVS}{ 30 O)":NEXT 
860 GS=GS+1 
870 IFSW>0THEN60 

880 SW=1:BV=21:BH=17:BY=15:BX=18 
:BA=SC+BY* 40+BX:DX = -1:DY»-1 
890 GOTO110 
900 REM 

910 PRINT" {HOME} { 2 GIU'HRED}" 
920 FORJ»1T03:PRINT"{ 8 DES) 

{RVS}{ 30 O}":NEXT 


930 PRINT"{ 12 GIU')" 

940 FORJ » 1T03:PRINT"{ 8 DES} 
{RVS}{ 30 O}":NEXT 
950 GS=GS+1 
960 IFSW>0THEN60 

970 SW»1:BV=13 :BH = 20 :BY=10 :BX = 21 
:BA=SC+BY*40+BX:DX=1:DY=-1 
980 GOTO 110 
990 REM 

1000 PRINT"{HOME} { 2 GIU'}" 

1010 FORI=0TO8:PRINT"{ 10 DES}"; 
:FORJ = 9-ITOlSTEP-1 SPRINT" 
{RVS}{BLU}0"; :NEXT 
1020 PRINTSPC(1*2+8);:FORJ=9-ITO 
ISTBP-l:PRINT"0";sNEXTsPRIN 
TsNEXT:PRINT 

1030 FORI=0TO8:PRINT"{ 10 DES}"; 
:FORJ»1TOI + 1 SPRINT"{RVS} 

{BLU}0";sNEXT 

1040 PRINTSPC(((8-1)*2)+8);sFORJ 
» 1TOI +1 :PRINT"0"; :NEXT:PRIN 
T:NEXT:PRINT"{HOME}" 

1050 GS=GS+1 
1060 IFSW>0THEN60 
1070 SW=1:BV=13:BH=16sBY= 9:BX=24 
:BA=SC+BY*40+BX:DX»1sDY=-l 
1080 GOTO110 
1090 REM 

1100 PRINT"{HOME}{ 13 GIU'} 

{ 13 DES JGIOCHI ANCORA (S/N 
) ?" 

1110 GETA$ 

1120 IFA$="N"THENPRINT"{CLR}":EN 
D 

1130 IFASO"S"THENl 1 1 0 
1140 IFGS>HSTHENHS»GS 
1150 SW»O:GOTO340 
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IN TUTTE LE TASCHE... 



Viver© 

col Personal Computer 


Dentro e fuori la scatola 





































PER TUTTE LE TASCHE 





L'informatica di base 
in una Collana di volumi 
monografici indirizzati a: 


CHI INIZIA 


Tesplorazione affascinante e 
avventurosa del mondo dei Personal. 

particolari tematiche 


| CHI VUOl£ APPROFONDIRE d ^Xm"e di Ungono, 

di hardware 

^WKSJDERAPOSM^E^ 


tutto quel che c'è da saperi» 
sull'informatica, le sue applicazioni, 
le sue pnwipettive. 


SONO DISPONIBILI 

• VIVERE COL PERSONAL 
COMPUTER 


• DENTRO E FUORI LA 
SCATOLA 


OGNI MESE 
IN EDICOLA 

2 VOLUMI h\ v\ |\ 

A SOLE LIRE 

CIASCUNO 



























Titolature 
di cassette 



Se possedete una stampante Commodore e, 
come me, molte decine di cassette contenenti 
registrazioni musicali (o anche software per il 
vostro C64), allora questo semplice program¬ 
ma può esservi molto utile. 

Esso vi permette di stampare le copertine dei 
vostri nastri in modo razionale e ordinato. 

Il funzionamento del programma si basa sul 
fatto che, sulle stampanti Commodore, una 
matrice di 25 righe per 40 colonne ha esatta¬ 
mente le stesse dimensioni di una copertina 
standard per cassette. Come ricorderete, an¬ 
che una "schermata" del vostro C64 è com¬ 
posta da 25 righe di 40 caratteri; il program¬ 
ma mostra quindi sul video la copertina (an¬ 
cora priva di titoli e nomi), in modo che voi pos¬ 
siate compilarla. A tale scopo compare (in al¬ 
to a sinistra) un cursore, che potete spostare 
coi soliti tasti di controllo. Potete digitare ciò 
che volete, eventualmente anche cancellando 
le parti precompilate. Attenzione però: il tasto 
INST/DEL non funziona, per cui qualsiasi cor¬ 


1 POKE650,255 : X* 1 :S=0:K=54272 

2 POKE53 2BO,11:POKE53281 ,0:PRINT 

" [ < 1 > ] " 

3 GOSUBl00 

10 GETAS 

11 P=1023+X:C=PEEK(P):POKEP,102: 
POKEK+P,8 :POKEP f C 

15 IFA$ = ""THEN1 0 

20 A=ASC(A$) 

21 1FA=133THENGOSUB10000:GOT010 

22 IFA=134THENKUN 

23 IFA=136THENSYS2048 

24 IFA“ 14 5THENX=X-4 0 :S = 1 

25 IFA=1S7THENX=X-1 :S = 1 

26 IFA=13THENX“X + 40 !S = 1 
30 IFA*17THENX»X+40:S=1 
35 IFA=29THENX = X+1 :S=1 
37 IFX<10RX>1000THENX»! 

40 IFS>0THENS*>0 : GOTOl 0 

60 IFA>63ANDA<96THENA=A-64 
62 IFA>31ANDA<64THEN72 
64 IFA>96ANDA<1 28THENA=A-32 
66 IFA>159ANDAC192THENA=A-64 


rezione va effettuata posizionandosi sul carat¬ 
tere errato e battendo quello giusto. 

Quando la copertina è pronta, potete stam¬ 
parla premendo il tasto FI. 

Effettuata la stampa, potete ottenere un'al¬ 
tra copia premendo nuovamente FI (eventual¬ 
mente dopo aver fatto delle correzioni), oppu 
re creare una nuova copertina usando F3. Bat¬ 
tete infine F7 quando avete finito di utilizzare 
il programma. 

Per concludere, vi segnaliamo la versatilità della 
subroutine che stampa la copertina (linee 
10000-10070). Essa effettua un "hard copy" 
in bassa risoluzione del video, cioè stampa su 
carta la copia esatto di una schermata di 1000 
caratteri del C64. L'unica limitazione è che un 
carattere in reverse sul video appare normale 
su carta. Potete inserire la routine in un vostro 
programma, e chiamarla con un GOSUB 
10000 ogni volta che volete stampare il conte¬ 
nuto dello schermo. 


72 IFX<1ORX>1000THENX=1 

73 P=1023+X 

75 POKEP,A:POKEK+P,8 

76 X=X+1 
80 GOTOl0 


100 

PRINT"{<A>1{ 19 

*)[< R>1 



{ 18 *} [<S>1"; 



110 

PRINT"- 

A- 



-B- 

M . 

! 


1 20 

PRINT"- 1 ) { 16 

SPAZI}- 

1) 


{ 15 SPAZI)-"; 



1 30 

PRINT"- 2) { 16 

SPAZI)- 

2) 


{ 15 SPAZI)-"; 



1 35 

PRINT"- 3) { 16 

SPAZI}- 

3) 


{ 15 SPAZI)-"; 



1 40 

PRINT"- 4) { 16 

SPAZI}- 

4) 


{ 15 SPAZI)-"; 



145 

PRINT"- 5){ 16 

SPAZI}- 

5) 


{ 15 SPAZI}-"; 



1 50 

PRINT"- 6){ 16 

SPAZI}- 

6) 


{ 15 SPAZI)-"; 



160 

PRINT"- 7){ 16 

SPAZI}- 



{ 15 SPAZI)-" 




















165 

PRINT 

8) 

i 

16 


{ 

1 5 

SPAZI 

)■ 

*# . 
t 

1 70 

PRINT 

"- 9) 

r 

"1 6 


( 

1 5 

SPAZI 

}- 

•* . 
t 

175 

PRINT 

"-1 0) 

r 

“1 6 


i 

1 5 

SPAZI 

i- 

*i • 
i 

185 

PRINT 

•- li ) 

{' 

"1 6 


i 

1 5 

SPAZI 

}■ 

ii, 

• 

190 

PRINT 

"-1 2) 

r 

‘1 6 


{ 

1 5 

SPAZI 

i- 

•• • 

9 

200 

PRINT 

"-1 3) 

f 

‘1 6 


{ 

1 5 

SPAZI 

}■ 

(• . 

9 


SPAZI}-- 8) 
SPAZI}- 9) 
SPAZI}--1 0) 
SPAZI}_-! I ) 
SPAZI}-l 2) 
SPAZI}-!3) 


210 PRINT"[<Q>){ 5 *}(<R>} 
{13*}[<E>]{18*}1<W>) 

220 PRINT"-N.{ 3 SPAZlj-LATO A: 

{ 25 SPAZI}-”; 

225 PRINT"j-TIPO -^LATO B; 

{ 25 SPAZI}- 1 *'; 

230 PRINT"1<Q>JT 5 M[<E>] 

{13*}|<R>]{18*1{<W>J"; 
240 PRINT"_-14){ 16 SPAZl}-14) 

{ 15 SPAZI}; 

250 PRINT"-15){ 16 SPAZl}-15) 

{ 15 SPAZI}-"; 


260 PRINT"-16){ 16 SPAZI}-16) 

{ 15 SPAZI}-"; 

270 PRINT"-17){ 16 SPAZI}-17) 

{ 15 SPAZ I }_-" ; 

280 PRINT"-18){ 16 SPAZI)-l8) 

{ 15 SPAZI}-"; 

290 PRINT" [<Z>U 19 * } {<E> ] 

{ 18 *}"; 

300 POKE2(523,125: POKE56295,8 

399 RETURN 

10000 AZ$="":OPEN4,4:LZ=1024:FOR 
LZ=LZT02023STEP40:FORIZ=LZ 
TOL.Z + 39 : ZZ = PEEK ( IZ) 

10010 IFZZ<96ANDZZ>63THENZZ=ZZ+3 
2 :GOTOl 004 0 

10020 IFZZ< 32THENZZ = ZZ + 64:GOTOl0 
040 

1 0030 IF Z Z <128ANDZZ>96THENZZ = ZZ + 
64 

10040 ZZ$=CHR$(ZZ) :AZ$ =AZ$+ZZ$:N 
EXT 

10050 IFAZ$="{ 40 SPAZI}"THENPRI 
NT#4:GOTOl0070 

10060 PRINT#4,AZ$ 

1 0070 AZ$="":NEXT:CLOSE4: RETURN 


Pinguino 



Il nostro amico pinguino non ha vita facile: in¬ 
fatti deve difendere le sue sei uova dagli at¬ 
tacchi continui degli uccelli rapaci. Per fortu¬ 
na può usare una moderna pistola laser per 
abbattere i suoi nemici. 

Si gioca usando i tasti 0 e P per muovere ri¬ 
spettivamente a sinistra e a destra il pinguino ; 


120 PRINT"(CLRj M 
130 POKE53280,7 
140 POKE532 81 ,7 
150 POKE646 ,2 

160 PRINT"l 6 GIU'}"TAB(15)" 

{RVS} PINGUINO " 

170 PRINT"{ 6 GIU 1 )"TAB( 10)" 'O' 

= DESTRA":PRINTTAB(10)" 

{GIU' } # P * = SINISTRA" 

180 PRINT"{GIU'}"TAB(10)"'BARRA' 
PER SPARARE" 

190 GOTO520 
200 REM 


la barra spaziatrice serve a sparare con la pi¬ 
stola laser. Avete un solo colpo a disposizione 
per ogni uccello rapace: o lo centrate (e gua¬ 
dagnate lOOpunti) o esso prenderà un uovo. 
Il gioco termina quando tutte e sei le uova so¬ 
no state rapite. 


210 KY*PEEK(197) 

220 IFKY=64THEN240 

2 30 POKEl 94 4 +PC,32 

240 IEKY=38ANDPC>3THENPC‘PC-1 

2 50 IFKY=41 ANl)PC<38THKNPC = P01 

260 POKEl 94 4 +PC,34 

270 POKE562 1 6-*-PC , 0 

280 IFKY060THEN500 

290 IFFF=1THENSOO 

300 POKES+1,60:POKES+4,129 

310 FORK=22TOBRSTEP-1 

320 POKEK* 4 0 + PC+l 02 4 ^ 38 

330 POKEK* 40+PC + 55296,2 
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340 NEXTK 

350 POKES+4,0 

360 FOKK=22TOBRSTEP-l 

370 POKEK*40+PC+1024,32 

380 NEXTK 

390 FF=1 

400 XFPCOBCORBR> = 23THEN500 

410 POKES+1,50:POKES+4,83 

420 GOSUB210 

430 POKES+4,0 

440 SOSC+100 

450 POKE53281,14 

460 M(WE)=0 

470 GOSUBl860 

480 GOSUB210 

490 GOSUBl720 

500 RETURN 

520 POKE55,0 

530 POKE56,56 

540 PRINTCHR$(142) 

550 POKE56334,PEEK(56334)AND254 

560 POKEl,PEEK(1)AND251 

570 FORJ=0TO511 

580 POKEJ+14336,PEEK(J+53248) 

590 NEXTJ 

600 POKEl,PEEK(1)OR4 
610 POKE56 3 34,PEEK(56 J 3 4)OKI 
620 POKK53272,(PEEK(53272)AND240 
) +1 4 

630 FOKJ-14608TO14b47 
640 READB 
650 POKEJ,B 
660 NEXTJ 

670 DATA28,56,60,102,102,102,102 
,60 

680 DATA0,0,24,60,60,60,60,24 
690 DATA1 28,1 30,206,252,56,1 20,1 
10,71 

700 DATAI,65,115,63,28,30,118,22 
6 

710 DATA8,8,8,8,8,8,8,8 

720 D=1024 

730 C-55296 

740 POKE53280,14 

750 POKE53281,14 

760 POKE646,9 

770 PRINT"{CLR}" 

780 PRINT"{HOME}"TAB(4)"UOVA RIM 
ASTE:"SPC(8)"PUNTI:" 

790 S-54272 

800 FORJ=STOS+23 

810 POKEJ,0 

820 NEXTJ 

830 POKES+24,15 

840 POKES+6,240 

850 FORJ=lT06 

860 M(J)=0 

870 NEXTJ 

880 SC=0 

890 PC=15 

900 FORJ=lT06 

910 EC(J)=J*5 

920 POKEl984+J*5,35 


930 POKE56256+J*5,6 

940 NEXTJ 

950 EL=6 

9b0 GOSUBl860 

970 FORJ=1T06 

980 GOSUBl720 

990 GOSUB210 

1000 POKEBR* 40+BC+D,S3 

1010 POKEBR*40+BC+C,C3 

1020 GOSUB210 

1030 IFBC<=EC(WE)THENl070 

1 040 BC = BC-1 

1050 WB-36 

1060 GOSUB210 

1070 IFBC>=EC(WE)THENl11 0 

1080 BC=BC+1 

1090 WB=37 

1100 GOSUB210 

1110 IFBR>2 3THEN1130 

1120 BR=BR+1 

1130 S3“PKKK(BR«40+BC+D) 

1140 CJ“PEEK(HR* 40+BC+C) 

1150 POKERK* 40 »UC+D , WU 
1160 POKEBR*40+BC+C,0 
1170 GOSUH210 

1 1 80 IFBCOEC (WE) 0RBRO24THEN1 25 
0 

1190 POKES + 1,25:POKES + 4,83 
1200 POKEBR*40+BC+D,32 
1210 EL=EL-1 
1220 GOSUBl860 
1230 POKES+4,0 
1240 GOTO1260 
1250 GOTOIOOO 
1260 NEXTJ 
1270 REM 

1280 FORJ=200TOl0STEP-10 
1290 POKES+1,J:POKES+4,33 
1 300 FORDE=1TOl50 :NEXT 
1310 POKES+4,0 
1320 FORDE=1TO20:NEXT 
1330 NEXTJ 
1340 POKES+4,0 
1350 PRINT"{HOME}" 

1360 FORJ=lT013 
1370 PRINT"{GIU'}" 

1380 NEXTJ 

1 390 PRINT"PUNTI REALIZZATI :"SC 
1400 FORJ = 1TOl0 
1410 GETGA$ 

1420 NEXTJ 
1430 NM$="" 

1440 INPUT"{GIU 1 }COME TI CHIAMI" 
; NM$ 

1450 IFLEN(NM$)<15THENl470 
1460 PRINT"NOME TROPPO LUNGO!":G 
OTO1440 
1470 SA(10)=SC 
1480 N$(10)=NM$ 

1490 FORJ=l0TO2STEP-1 
1 500 IFSA(J)<SA(J-1)THENl 570 
1510 TP=SA(J-1) 

1520 T$=N$(J-1) 


18 





1530 SA(J-1)= SA(J) 

1540 N$(J-l)= N$(J) 

1550 SA(J)=TP 
1560 N$(J)*T$ 

1570 NEXTJ 

1580 PRINT"{CLR)" 

1590 PRINTTAB(11)"PUNTEGGI MIGLI 
ORI" 

1600 PRINT"{ 3 GIU'}" 

1610 FORM=1T09 

1620 PRINTTAB(5)M"- "SA(M)" 

{ 2 SPAZI}"; 

1630 PRINTTAB(18)N$(M) 

1640 NEXTM 
1650 PRINT:PRINT 
1660 PRINTTAB(9)"( 4 GlU'JPREMI 
*G' PER GIOCARE" 

1670 PRINTTAB!15)"’S* PER SMETTE 
RE" 

1680 GKTQ$ 

1 690 I PQ$ •* " "THKN 1 680 
1 700 IPQ$O"S"THEN760 


1 71 0 

GOTO!900 


1 720 

BC X INT ( RND ( 0) 

*28)+3 

1 730 

BR=INT(RND(0 ) 

*17)+2 

1 740 

FF x 0 


1 750 

S3 = 32 


1 760 

WE = INT ( RND ( 0 ) 

*6) +1 

1 770 

GOSUB210 


1780 

IFM(WE)=1THENl760 

1 790 

M(WE)=1 


1 800 

IFBC<16TWKN18 

30 

1810 

WB = 36 


1 820 

GOTOl840 


1 830 

WB = 37 


1 840 

RETURN 


1 860 

GOSUB210 


1 870 

PRINT"{HOME}" 

TAB(17)ELTAB(3 


1)SC 


1880 

GOSUB210 


1 890 

RETURN 


1 900 

POKE49152,0 


191 0 

SYS49152 


l 920 

END 






Questo programma serve a insegnare ai bam¬ 
bini più piccoli il significato delle parole su. giù, 
sinistra, destra e dentro. Sullo schermo appa¬ 
re un castello colorato e il terreno circostante. 
Il piccolo può scegliere, in una lista di oggetti 
(uccello, stella, bimbo e cane), quale aggiunge¬ 
re al disegno per completarlo; egli dovrà poi 
indicare dove l'oggetto prescelto deve compa¬ 


rire, usando uno dei cinque termini indicanti 
le direzioni. Ogni oggetto può puoi essere can¬ 
cellato. In tal modo il bambino (con l'aiuto di 
un adulto se non sa ancora leggere) può im¬ 
parare il concetto di posizione, divertendosi a 
creare nuovi disegni e nuove storie coi perso 
naggi a sua disposizione. 


110 L$(1)="{HOME}{ 16 GIU'} 

{ 12 DES}" 

120 LS(2)= L$(!)+"{ 4 GIU'} 

{ 18 DES}" 

130 LS(3){HOME}(GIU' } 

{ 16 DES}" 

140 L$(4)= "{HOME}{ 12 GIU'}{DES} 
" : L$ (5)=L$(4)+ " { 29 DES}" 

150 PRINT"{CLR}"TAB(8)"{GIU’} 

{RVS} IMPARIAMO LE DIREZIONI 
{ 2 GIU'}" 

160 PRINT"ORA FAREMO UN GIOCO PE 
K IMPARARE COSA" 

170 PRINT"SIGNIFICANO LE PAROLE 
SU, GIU', DESTRA, SINISTRA E 
DENTRO." 


180 PRINT"{GIU'}VEDRAI UN CASTEL 
LO CON QUESTE PAROLE." 

190 PRINT"{GIU'}LE PAROLE SONO L 
UOGHI VICINO AL{ 9 SPAZI}CAS 
TELLO." 

210 PRINT"{GIU'}ALLA BASE DELLO 
SCHERMO VEDRAI I NOMI" 

220 PRINT"DI ALCUNE COSE CHE PUÒ 
I DISEGNARE.{GIU'}" 

230 PRINT"PUOI USARE QUESTE COSE 
PER COMPLETARE{ 3 SPAZI}IL 
DISEGNO DEL CASTELLO. 

{ 3 GIU'}" 

240 PRINT"{ 5 SPAZI}PREMI UN TAS 
TO PER CONTINUARE" 

250 GETQS:IFQ$=""THEN250 
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530 PRINTTAB(10)"{RVS} 

{ 17 SPAZI}" 

540 PRINTTAB(9)"{RVS}{BLU} {<5>j 
{ 2 SPAZI}{WHT}{ 6 SPAZI) 

I< 5>} { 9 SPAZI} {BLU} (< 5>)" 
550 PRINTTAB{8)"{RVS}{BLU} 

{ 2 SPAZI}[<5>){ 2 SPAZI) 

{WHT}{ 6 SPAZI}l<5>) 

{ 9 SPAZI}{BLU}{ 2 SPAZI}" 

560 PRINTTAB(7)“{RVS}{ 3 SPAZI} 
[<5>]{ 2 SPAZI}{WHT} 

{ 6 SPAZI}I<5>){ 9 SPAZI} 

{BLU}( 3 SPAZI}" 

570 PRINTTAB(8)"{RVS}l 5 SPAZI) 

( < 5> ) !•' { 3 SPAZ I }C { BLU } 

{ 1I SPAZI}" 


260 PRINT"{CLR}{GIU 1 }IO TI CHIED 
ERO’ QUALE OGGETTO VUOI" 

270 PRINT"AGGIUNGERE AL DISEGNO, 
E TU DOVRAI{ 6 SPAZI}DIRMI 
IL SUO NOME.{GIU’}" 

280 PRINT"POI TI CHIEDERÒ' DOVE 
VUOI METTERLO," 

290 PRINT"E TU DOVRAI RISPONDERM 
I:" 

300 PRINT"SU, GIU', DESTRA, SINI 
STRA O DENTRO.{GIU'}" 

310 PRINT"VA BENE, ORA GIOCHIAMO 
...{ 3 GIU')" 

320 PRINT"{ 6 SPAZI}PREMI UN TAS 
TO PER INIZIARE" 

330 GETQ$:IFQ$=""THEN330 
340 FORX=lT05:READTS(X):NEXT 
350 DATAUCCELLO,BIMBO.CANE,STELL 
A,CANCELLA 

360 FOKX*IT05:HEAIJWS(X):NEXT 
370 DATADENTRO,GIU',SU,SIN1STKA, 
DESTRA 

380 PRINT"{CLR}{ 3 GIU'}" 

390 F0RX-55896T05Ó295:POKKX,5:NE 
XT 

400 FORX*l624TO2023:POKEX,160:NE 
XT 

410 POKE53281, 1 :POKE53280,6 
420 PRINTTAB(15)"[<5>}{RVS) 

{OFF} {RVS}{ 3 SPAZI}{OFF} 
{RVS} " 

430 PRINTTAB(15)"{RVS} 

{ 7 SPAZI)" 

440 PRINTTAB(16)"{RVS} 

{ 5 SPAZI}" 

450 PRINTTAB(16)"{RVS} 

{ 5 SPAZI}" 

460 PRINTTABd 6) " {RVS} 

{ 2 SPAZI}{BLK} l<5>) 

{ 2 SPAZI}" 

470 PRINTTAB(10)"{RVS} 

{ 2 SPAZI){OFF} {RVS} {OFF} 

{ 2 SPAZI}{RVS}{ 2 SPAZI) 

{BLK} (<S>){ 2 SPAZI){OFF} 

{ 2 SPAZI}{RVS}{ 2 SPAZI) 

{OFF} {RVS}{ 2 SPAZI}" 

480 PRINTTAB(10)"{RVS} 

{ 4 SPAZI}{OFF}{ 2 SPAZI} 

{RVS}{ 5 SPAZI){OFF} 

{ 3 SPAZI}{RVS}{ 3 SPAZI}" 

490 PRINTTAB(10)"{RVS} 

{ 3 SPAZI){OFF}{ 3 SPAZI} 

{RVS}{ 5 SPAZI){OFF} 

{ 3 SPAZI){RVS} {BLK} [<5>] 

« 

500 PRINTTAB(10)"{RVS} {BLK} 

(<5>}{ 15 SPAZI}" 

510 PRINTTAtì(l0)"{RVS} 

{ 17 SPAZI}" 

520 PRINTTAB(10)"{RVS} 

{ 10 SPAZI}{BLK} (<5>J 
{ 2 SPAZI}{BLK} [<5>) 

{ 3 SPAZI}" 


580 PRINTTAB(9)"lRVS){ 5 SPAZI} 

1< 5>|F{ 3 SPAZI)C{BLU} 

{ 8 SPAZI}" ~ 

590 PRINTTAB(21)"{RVS} 

{ 5 SPAZI){ 2 GIU'}" 

600 PRINT"{BLK}{DES}STELLA 

{ 2 SPAZI)UCCELLO{ 2 SPAZI} 
BIMBO{ 2 SPAZI}CANE 
{ 2 SPAZI}CANCELLA{HOME}" 

610 PRINTLS(1)"{GIU'}{RVS}DENTRO 
PRINTLS(2)"{GIU'}{RVS}GIU' 
{HOME}" 

620 PRINTL$(3)"{GIU'}{RVS}SU":PR 
INTLS(4)"{GIU'}{RVS}SINISTRA 
":PRINTLS(5)"{GIU'}{RVSjDEST 
RA" 

630 INPUT"{HOME}{BLK}COSA VUOI D 
ISEGNARE";PS 

640 PRINT"{HOME}{ 39 SPAZI}" 

650 FORX=lT05:IFPS =T$(X)THEN670 

660 NEXT:GOTO630 

670 INPUT"{HOME}DOVE VUOI DISEGN 
ARE";WS 

680 PRINT"{HOME}{ 39 SPAZI}" 

690 FORX=lT05:IFW$=W$(X)THEN710 
700 NEXT:GOTO670 
710 C$»"{WHT}" 

720 IFW$=*"GIU ' "THENC$ = " {GRN ) " 

725 Q$=C$: IFW$ = "DENTRO"THENQS = " 

(< 5>]" 

730 PRINTLS<X)C$"(RVS) 

{ 5 SPAZI}":PRINTLS(X)" 
{GIU'}{RVS}{ 6 SPAZI}"Q$" 

{ 2 SPAZI}":PRINTLS(X)C$" 

{ 2 GIU'}{RVS}{ 5 SPAZI} 
{HOME}" 

740 C$="{RVS}{GRN}":IFW$<>"GIU'" 
THENCS = "{BLK}" 

750 IPPS="STELLA"THENPRINTL$(X)" 
{GIU'}{DES}{BLK}*" 

760 IFP$="BIMBO"THENPRINTLS(X)CS 
"{DES}W":PRINTLS(X)C$"{GIU'} 
N+M":PRINTLS(X)C$"{ 2 GIU'} 

TdesJh" 
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770 IFP$="UCCELLO"THENPRINTL$(X) 
C$" )":PRINTL$(X)C$"{GIU')= 
+>":PRINTL$(X)C$"{ 2 GIU') ) 

•I 

780 IEP$="CANE"THENPRINTL$(X)C$" 


{GIU'} Q N":PRINTL$(X)C$" 

{ 2 GIU'} LUH" 

7^0 IFP$ = "CANCELLA"THENPRINTL$(X 
)"{RVS}{BLK}{GIU'}"W$(X) 

800 GOTO630 



Se detesti ragni ed esseri striscianti questo non 
è certo il gioco che fa per te, ma se la versione 
"in video" di questi simpatici animaletti non 
ti spaventa, hai davanti ore di divertimento con 
il gioco che ti proponiamo. 

Sei inseguito in ogni parte dello schermo da un 
velocissimo bruco e da giganteschi ragni rossi. 
Sparsi qua e là ci sono funghi velenosi (di color 
porpora) e commestibili (di color giallo). Quando 
mangi i funghi gialli, i tuoi movimenti sono per 
breve tempo più veloci, mentre se il bruco man¬ 
gia un fungo velenoso, esso diventa a sua vol¬ 
ta molto veloce per qualche secondo. 

Si guadagnano 10 punti per ogni segmento del 
bruco catturato e 100 punti per ogni ragno col¬ 
pito. Se sei abbastanza preciso da colpire il bru¬ 
co in mezzo agli occhi, sulla testa color aran- 


10 REM IL BRUCO MALEFICO 
2b GOJUb1170 
30 GOSUBVOO 
bb GOòUiil 4UU 
40 GOSUBÌOO 
4 b GOSUboU 
bO CObUb20O 

b b 1FSC< bOOTHENGOSUB1 00 : GObUtìb 1 4 
bb COSUB4ÌO 

70 1FSC<1bOOTHKNGOSUBl00 :GOSUBb1 
4 

7 5 i b':SC< JOOOTHENGOSUB1 00 : GOSUBb 1 

4 

80 GOTO40 

100 K-Pb£K(l97) :KJ-PELK l bb321)AN 
Ul b 

lOb 1FK= bo01<KJ= 1ÌTHENP=P-Ì 
110 IFK=4lORKJ»7THENP-Pi*l 
1 1 b IFK«b20KKJ=1 4THENP*P-40 


ciò, stai attento: esso rinascerà in una posizione 
a caso dello schermo. 

Il gioco finisce quando il bruco o i ragni ti cat¬ 
turano o se ti scontri con i segmenti del bruco. 
I migliori risultati vengono memorizzati, con la 
possibilità di inserire il nome del giocatore, e 
appaiono in una tabella contenente i primi IO 
punteggi alla fine di ogni partita. Inoltre il mi¬ 
glior punteggio viene sempre scritto in alto a 
destra durante il gioco. 

Come giocare: per muoverti a sinistra, a de¬ 
stra, sopra o sotto usa rispettivamente i la 
s ti "0", "P", "Q" ed "A"; per sparare 
"W" (sopra), "S” (sotto), “L" (sinistra) e 
(destra). Puoi anche utilizzare il joystick in porta 
I. Buona caccia! 


lzO 1FK= 1 OOKKJ = 1 iTHENP=P-t-40 

125 lb'P< 1 0o4OKP>202JTHENP=OP 

130 1FP-GPTHEN190 

135 1FPGEK(P)=JJTHENl200 

140 1FPEEK (P) =- 35THEN 1 500 

145 IFPEEK(P)=j7THENP=OP:GOTOl90 

150 IFPEEK(P) 0 36THEN1 70 

152 POKEP,32 

155 t'ORF4= 1T01 0 

1bO GOSUBl00 

1b2 GUoUUb14 

1b 5 NKXTF4 

170 POKGUP,52 

175 POKEP,54 

lbO POKEC+P-1024,5 

185 OP=P 

190 RETURN 

200 F-F+l 

210 1FF= /THENF=1 
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220 1FPEEK(FM(F) ) =JbTHEN230 
2 22 FM(F)«INT(RND C0)*9b0)tl024 

223 1FPE£K (FM(F) ) 0 32THEN222 

224 GOTO3 b b 

2 3(J POKEFM (F) ,32 

240 FM(F)®FM(P)-SGN(INT((FM(F)-1 
024)/40)-1NT((P-1024J/40))*4 
0 

2b0 FM(F)-FM( F ) -SGN((FM(F)-INT(( 
FM(F)-1024)/40)*40)-(P-INTl( 
P-I 0 2 4 ) / 4 0 )*40)) 

2/0 IFPEEK(FMIF) )®J2TtiEH3bb 

cbO IFPEEK(FM(F) ) < > J4T1IEN 300 

2 90 FOKFl-lTUuO 

300 POKEFM(F),32 

310 SYS49I74 

320 POKEFM(F) , 3b 

324 POKEFM(F)tG-1024,2 

330 POKESt 4,0 

3*0 NEXTFl 

3b0 CoTOlbOO 

360 Fi i l F)®FM(F)tSGN(FM(F)-(P-INT 
lP/40)* 4)*(FM(F)-P> 40))*VR 
3o5 POKEFM(F),3b 
370 POKEFM (F) 4-0-1024,2 
3b0 KETUKN 

4I0 1FPEEK(CP)-3 3THEN 4 2 fa 
4 1 4 CP-INTlRNU(0)*9bU)tlUb4 
4 1 b IFPEEK (CP) 032THEN41 4 
4 22 GOTOj 5 0 
42b POKKC+CP-1 024,b 
430 CP-CP-SGN(INT((GP-1024)/40)- 
INT((P-l 024J/40) ) *40 
434 CP=CP-SGN((CP-INTl(CP-1024)/ 
40)*40)-(P-INT((P-l024)/40;* 

40) ) 

440 IFPEEK(CP)=J2THENS90 
4 bO IFPEEK(CP)< >J4VHEN 330 
4b0 FOKF1=1TObO 
4/0 POKECP, 3 2. 

4 oO SYS491b2 

490 POKECP, 3 3 

494 POKECtCP-1 024, b 

500 POKESt4,0 

510 NEXTF1 

b20 GOTO 1bOO 

b30 IFPEEK (CP) O37THEN590 

b34 POKECP,33 

b3b POKECPtC- 1 024,b 

b40 FOKF1=1TOl0 

bbO GOSUU410 

boO NEXTFl 

b90 POKECtCP-1024,8 

b9b SYS4916 3 

bOO POKECP,33 

bìO KETURN 

bl4 K“PEEK(197):KJ=PEEK(56321)AN 
D31 

61 b FL) = U 

bìb IFK = 90RKJ =14THENFD*-40 
b!8 IFK=130RKJ-13THENFD=40 


b2 0 IFK=420RKJ-11THENFD = -1 

022 1FK = 4 50RKJ = 7THENFD *1 

024 lFFD=0VHENb70 

b2b POKEStl,100 

626 POKESt 4,129 

b3o FP=P 

632 FORF2=1V07 

634 FP=FPtFD 

bjb IFPEEK(FP) s 32THEN666 
6^b IFPEEK (FP) <> J3TllENb54 
640 PONESSI,1b 
64 2 PoKEst 4,U3 
644 SC®SC4I0 

b 4 b FRI NT" IUOME)lSU) M TAb(12)SC 
64b POKEFP,32 
bbO POKESt4,0 
632 GOTOOUO 

654 IFPEEK(FP)<>3bTHENó64 
o 5b POKEStl , 1 0 
u 58 POKESt-4,3 3 

060 SC=SCtlOO 
6u2 GOTO646 

664 IFPEEK(FP)=3ÒORPEEK(FP)=37TH 
EU o 7 o 

6bó NEXTF2 
670 POKESt 4,0 
o72 KETUKN 
700 PRINT"{CLK}" 

710 POKEDb,0 :POKE56,bb 
720 PUINTCUR$(142) 

7 jQ POKEbo3 34,PEEKlbb3 34)AND2b4 
740 POKE I ,PEEK(1)AND2bl 
7 DO FORJ-OTObll 
7 oO POKEJ11 4 3 30,PEEK(Jtb3248) 

770 NEXTJ 

760 POKEl,PEEK(1)OK4 
790 POKEbo334,PEEK(5b334)ORI 
600 POKEb32 72, (PEEK(b32/2)AND240 
) OKI 4 

6 10 FOi<J = 1 4 600TOI 463 9 
820 KEAOD:POKEJ,D 
830 NEXTJ 

64 0 DATA24,60, 126,2bb,2bb,126,60 
,24 

bbO DATA5o,ò8,bb, 1 08,1 70,56,68,1 
98 

860 DATAI 29,1 36,1 53,1 27,24, 1 27,1 
53,36 

870 DATA24,60,126,255,255,24,24, 
24 

880 DATA24,24,1 26,221 , 1 87,24,24, 
24 

890 D=l024:C=5529b 
900 POKE53281,0:POKE53280,5 
910 POKE646,1 
920 PRINT"{HOME)" 

930 PRINT"{SU} PUNTEGGIO: "SCSPC 
(/)"RECORD: "MS 
940 PRINT"iHOMEj" 

S-54272 

960 FOKL=STOS+23:POKEL,0 :NEXTL 
970 POKESt24,1b 
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9tt0 POKES+6,24 0 

bbO FOHJ = 1TO20 

10UU R=INT(RND(0)*9b0)-t-40 

1010 POKED+R,36 

1020 POKEC+R,7 

1030 NEXTJ 

1040 FORJ-lTOlO 

lobo KMNT 11<ND {U)* 9bU) x40 

loco PuKIJI+U, 3/ 

lU/0 l'uKIvC l H, 4 

1OòO NEXTJ 

1090 FOKJ ** 1 TOb 

1100 FM(J)■I NT(RND ( 0)* b b 0) + 10 6 4 

Ilio POKEFM(J) , 3b 

ll2o POKECtFMlJ)- 1024,2 

1130 NEXTJ 

1140 P=2004:OP=2UUb 

libo RETURN 

1170 PRXNT "(CLR}“ 

1172 POKEb3281,7 
1174 POKEb32BO,7 
1176 POKEb46,2 

117a PR1NT"{ 3 GXU’J"TAB (11)" 
{RVSjlL BRUCO MALEFICO" 
lido PRXNT"{ J GIU 1 J"TAB(B)"O/P 
PER SINISTRA/DESTRA" 

Ila* PR1NT"{GIU 1 )"TAB(12) "Q/A PE 
R SU/GIU ’ " 

1 1 a4 PRXNT"! 3 GXU' )"TAb(8)"L/: 

SPARO SINISTRA/DESTRA" 
llbb PRXNT" {GIU * J"TAli (1 2) "W/S SP 
ARO SU/GIU 1 " 

1167 PRXNT"{ 2 GIU']"TAB[7)"OPPU 
RE JOYSTICK IN PORTA 1" 
libò PR1NT"{ 3 G1U'J"TAUltì)"PART 
I DEL CORPO PUNTI 1 0" 

1 190 PKINT"(GIU'J"TAB(12) "RAGNI 
PUNTI 100" 

1 1 b2 FORD“1TolbOOO:NEXT 

1194 RETURN 

1200 FORFl=1TO60 

1210 POKEP,32 

1220 SYS4b1b2 

1230 POKEP,33 

1240 POKES+4,0 

12b0 NEXTF1 

1 2b0 GOTOlbOO 

130u FORFl=1T060 

1310 POKEP,32 

1320 SYS49174 

1330 POKEP,3b 

1340 POKEa+4,0 

13b0 NEXTFI 

1 360 GOTO1bOO 

1 400 FORMC = 4blb2TO491 84 

1410 REAOU:POKEMC,B 

1420 NEXTMC 

1430 DATAI 69,30,141 ,1,212,169,33 
,141,4 

14 40 DAVA212,9b,1b9,4S,141 ,1,212 
, 169,8J 


1 450 

datami , 4 , 212 , 90 , 109,40 
, 1,212 

,141 

1460 

DATA 1 69 , b3 , MI ,4,212,9o 


1470 

RETUKN 


1 buo 

PKINT"lC LR j": PO KE53272, 
K ( 5327 2 ) AND240 ) OR 4 

(PEE 

1 b20 

PKINT"l 3 GIU'}" 


1 b4U 

PKINT"11, TUO PUNTEGGIO 

:ìC 

E ' •• 

1 bbU 

PORGA-1TU1u 


1 bou 

GETGO 


1 570 

NEXTGA 


l bdo 

NM$* "" 


1 b 90 

INPUT"{ 2 GIU'JUUAL E' 
Uu NOME";NM6 

IL T 

1 oOO 

1FLEN(NM$)<15THEN1630 


1610 

PKINT"TRuPPO LUNGO" 


1 bzO 

GO'iXJ ! 5b0 


1 630 

SA (IO)=SC 


1 640 

N6(10)=NM$ 


lobo 

FORJ-10TO2STEP-1 


1 bbU 

IbSA(J)<SA(J- 1)THEN17 30 


1 670 

TP-SA(J-l) 


1 obO 

T$»N$ lJ-1) 


1 o9u 

SA (J-l)-SA(J) 


1700 

NO (J-1)= N$(J) 


17 10 

SA(J)*TP 


1 720 

NO(J)-T9 


1 730 

NEXTJ 


1 74 0 

PKINT"t CLR}" 


1750 

PR1NTTAU(10)"TAVOLA DEI 
OKU" 

KEC 

1 760 

PKINT"l 3 GIU'}" 


1 770 

FORM-ITO9 


1 7 60 

PRINTTAtì(5)M" "SA(M) H 
{ 2 SPAZI}" 


1 7 90 

PKINT"{SU}"TaB(20)N$(M) 


1 600 

NEXTM 


1 òl 0 

PKINT:PKINT 


1 b2 0 

PRINTTAB(7 ) " { 4 GIU'}PREMI 

C PER GIOCARE ANCORA" 

1 ti 30 

PRINTTAB(6)"UN ALTRO TASTO 
PER SMETTERE" 

1 ti 4 0 

GLTO$ 


IdbO 

IPÙ$- M " THEN1840 


1 ti60 

IF0$O"G"THENl 900 


1 d70 

SC s O:IIS-SA ( 1 ) 


1 bòO 

PRINT"{CLR}":POKE53272, 
Kl53272)AND240)OKI 4 

(PEE 

1690 

GGSUD920 


1 b95 

GuT040 


1 900 

POKE49152,0 


1910 

SYS49152 


1 920 

END 
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biblioteca che fa testo. 







Sei il capitano della astronave Pegasus della Fe¬ 
derazione dei Pianeti, in missione di pace ver¬ 
so il sistema Delta Minore, dove alcuni scien¬ 
ziati sono in difficoltà a causa di un virus mu¬ 
tante. Devi consegnare loro al più presto il vac¬ 
cino, ma una improvvisa perdita di energia ti 
costringe a fare tappa su un vicino • Planetoi¬ 
de, in cerca di cristallli di dilitio che servono a 
rialimentare i motori principali della tua nave. 
Ma il Planetoide è difeso da navi aliene robo¬ 
tizzate e da un cannone a Plasma, e così devi 
lottare per poter teletrasportare sulla nave il 
dilitio. 

Purtroppo, a causa della poca energia rima¬ 
sta agli schermi di difesa della nave, pochi at¬ 
tacchi della pattuglia aliena o un sol colpo del 
cannone a plasma sono sufficienti per distrug¬ 
gere la Pegasus; quindi la tua tattica dovrà es¬ 
sere essenzialmente difensiva, anche se i Pha- 
sers della tua nave sono ancora in grado di fun¬ 
zionare, pur facendoti perdere una discreta 
parte di energia. 

Per teletrasportare a bordo tutti i cristalli devi 
percorrere due orbite del Planetoide, awicinan- 


10 POKE53280,6 :POKE53281 ,0:PRINT 
"{GRN}" 

11 PR1NT"(CLR){ 18 SPAZI} 

{ 10 GIU* }TREK" 

12 PRINT'M 9 GIU'}{ 13 SPAZI}ATT 
END I{ 2 SPAZI}PREGO" 

13 GOSUB5000 

14 PRINT'M 6 SPAZIH 2 GIU'}LIVE 
LLO DI DIFFICOLTA’ (1-4) ■ 

18 GETFQ$: IFFQ$<"1"ORFQ$>"4"THEN 
1 8 

‘19 FQ=VAL(FQ$) SPRINT" {CLR}" 

20 GOSUD500 

30 GOSUB800 

35 GOSUB880 

40 V«53248:POKE723,10:Vl*2040:SS 
-0 : EX = 80:TI$ = "1 40000":POKE532 
75,48:BSC«0 

45 XX$= "{HOME}{ 23 GIU'}" 

50 POKEV+21,63 


doti alla verticale delle montagne piu alte, ove 
si trovano le miniere di dilitio, ed azionare il 
teletrasporto. Puoi scegliere tra quattro livelli 
di difficoltà che determinano la velocità con cui 
le navi-robot modificano la loro orbita per col¬ 
lidere con la Pegasus, e Fattività del cannone 
a plasma. 

I comandi sono: i tasti di cursore in giù e a de¬ 
stra rispettivamente per abbassare ed alzare 
la tua quota orbitale, la barra spaziatrice per 
sparare con i Phasers e il tasto T per azionare 
il teletrasporto (e quindi riacquistare energia). 
Ricordati però che il teletrasporto funziona so¬ 
lamente se usato a bassa quota; riceverai con¬ 
ferma del buon esito del recupero da un lam- 
peggio giallo della montagna, oltre che ovvia¬ 
mente dall'aumentare delle tue riserve di ener¬ 
gia agli schermi. 

Una volta digitato il programma, sarà meglio 
salvarlo prima di dare il RUN, per evitare che 
un possibile errore nella memorizzazione delle 
DATA possa mandare In 'crash' il tuo C64, ob¬ 
bligandoti a ripetere il lavoro di battitura! 


60 POKEV1,215:POKEV1+1,215:POKEV 
1+2,215 :POK EV1+ 3,211:POKEVl+4 
,212 :POKEV1 + 5,213 

70 POKEV+ 39,6 :POKEV+4 0,10:POKEV+ 
41,5:POKEV+42,15 :POKEV + 43,9 :P 
OKEV + 4 4,9 

80 POKEV+9,202 :POKEV+1 1,202 

90 GOSUB900 

95 QI=.01:POKEV+6,80:E=100:POKEV 
+ 5,145:POKEV+29,8 :POKE53280,0 
:IFFQ>2THENQI=.06 

96 POKE2046,21 4 :POKE53293,1 0 : POK 
EV+30,0 

97 POKEV+1,150:POKEV+3,155:POKEV 
+ 5,160:POKEV+7,180 :EP=180 :POK 
E650,I28:HIT-0 

99 SS=.l:EX=80:S*54272:POKE54296 
,9 :POKES+5,9 :POKES + 6,0 :POKES, 
240 :POKES + 1,33 
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100 SYS989:POKE53277,PEEK(53277) 
OR(2 t 4) :POKE53277,PEEK(53277 
)OR(2 t 5) 

110 SYSTHRST:POKE53280,0:POKEV+7 
t PEEK (V+7)+1 : IFPEEK (V-t-7) >1 85 
THENPOKEV+7,185 

112 SYSTHRST:POKE49402,PEEK( V+30 
):SYSPHAS:SYSTHRST 

114 SYSTHRST:SYSBAM:SYSTHRST:IF( 
PEEK(49402)ANDl5)>8THKNPOKE5 
3280,2:HIT*HIT+1 

116 SYSTHRST:SYSMOVE:POKE54 273,0 
:SYSPHAS:IFPEEK(197)=60THENH 
IT-HIT+1 

117 SYSTHRST:POKE54277,15:POKE54 
276,17:SYSTHRST:SYSTHRST:POK 
E54278,129 

118 SYS890:POKE54296,4 :PRINT" 
{HOME)! 2 GIU ' }{GRN}"SPC(31 ) 
"PUNTI{HOME)":PRINT"{GIU*)"S 
PC(25),(TI-T1)-HIT * 

1 1 9 SYSTHRST:POKE53 280,0 :SYSPHAS 
:IFPEEK(V)<20THENPOKEV+1,(PE 
EK(V+7)) 

120 SYSTHRST:SYSPHAS:POKE54273,2 
0:IFPEEK(V+2)<20THENPOKKV+3, 
(PEEK(V+7)) 

1 21 SYSTHRST: SYSPHAS: IFPKEMV+4) 
< 2 0THEN PO K EV + 5, (PEEK(V+7)) 

123 SYSTHRST:SYSBAM:SYSPHAS:SYST 
HRST 

12 4 SYS890 :SYSPHAS:POK E54 276,1 6: 
POKE54 2 76,1 7:SYSTHRST 

125 SYSTHRST:ONFQGOTO130,129,128 
,127,126 

126 SYSTHRST:SYSMOVE:SYSMOVE: SYS 
MOVE:SYSMOVE:SYSMOVE:SYSPHAS 

127 SYSTHRST:SYSMOVE:SYSMOVE:SYS 
MOVE:SYSPHAS 

128 SYSTHRST:SYSMOVE:SYSMOVE:SYS 
MOVE:SYSPHAS 

129 SYSTHRST:SYSMOVE:SYSMOVE:SYS 
PHAS 

130 SYSTHRST:SYSMOVE:SYSMOVE: SYS 
PHAS 

131 SYSTHRST:SYSMOVE:SYSTHRUST:S 
YSMOVE:IFRND(.)<QITHEN8000 

132 SYSTHRST:A5=PEEK(197):POKEV+ 
7,PEEK(V+7)+1 :IFPEEK(V+7)>18 
5THENPOKEV + 7,1 8 5 

133 SYS890: IFA5=22ANDABS(PEEK(V+ 
6)-PEEK(V+ì 0))<25ANDPEEK(V + 7 
)>175THENGOSUB6000 

135 XY$=STR$(100-(HIT*15.1))+" 

{ 2 SPAZI)" 

140 SYS890:PRINTXX$;"ENERGIA AGL 
I SCHERMI "; XY$ 

145 SYSTHRST:SYSPHAS:SYSTHRST:IF 
HIT*15.1>100THEN200 

180 SYSTHRST:EX=EX+1:IFEX>150THE 
NEX-40:LC=LC + 1:1FLC>1THEN4 00 
0 


190 SYSTHRST:SYSMOVE:SYSPHAS:POK 
EV+6,EX :SYSTHRST 
195 SYSTHRST:SYSPHAS: GOTO110 
200 PRINTXX$;"SCHERMI FUORI USO, 
ASTRONAVE DISTRUTTA{HOME}" 
205 S=54272:POKES+24,15:POKES+5, 
19 2 :POKES + 6,129 :U1 =2 55 :POKES 
+2,75:POKE53280,2 
210 N=190-PEEK(V+7):FORCRASH=1TO 
NSTEP4 

215 POKES+1,U1 :POKES + 4,17 :U1*Ul- 
1 

220 FORDL=lTOlO:NEXT:Cl=(PEEK(V+ 
7)+4):C2=(PEEK(Vf6)+4) 

225 IFC2> 225THENCRASH s N 

230 POKEV+7,Cl:POKEV+6,C2:NEXT 

231 GOSUB300 

234 POKEV+21 ,PEEK(V+ 21)AND(2 55-8 

) 

235 POKES+24,15:POKKS+1,15:POKES 
+4,128 

240 POKES+5,9 :POKES+1,20 :POKES+4 
,128 

250 FORDL !TO700:NEXT 
260 POKES + 4,129 :GOTO3000 

300 POKE53277,PEEK(53277)AND(255 

- 21 3) 

301 POKB53271,PEEK(53271)AND(255 

- 2 T 3) 

305 POKE204 3,21 6:POKEV+42,7 : FORD 
ELAY*lTO20:NEXT:POKES+4,129 
310 POKEV+ 7,PEEK(V+ 7)-10 :POK E 53 
271,PEEK(53 271 )OR(2t3) : FORDE 
LAY=1TO10 :NEXT 

312 POKES+24,7 :FORD = lTO20:NEXT:P 
OKES *24,8 : FORD* 1 T04G : NEXT: 1*0 
KES+24,13 

315 POKE53 2 77,PEEK(53277)OR(2 t 3) 

:FORDELAY=1TO60:NEXT 

316 POKES*24,7:FORD = 1TO40:NEXT:P 
OKES + 2 4,8 :FORD = lTO20:NEXT:PO 
KF.S* 2 4,1 3 

320 POKE53271 ,PEEK(53271 )AND(2 55 

- 2 t 3) 

3 25 POKEV + 42,1 :FORD=l3T01STEP-.5 
: POKES+24, L>: NEXT: POKES+4, 1 28 
:POKES+24,9:RETURN 

499 : 

500 FORN*1 34 4 OTO13502 : READA:POKE 
N,A:NEXT 

510 FORNAI 3 504TO1 3566:READA:POKK 
N,A:NEXT 

515 FORN■1 3568TO1 3630:READA:POKE 
N,A:NEXT 

520 FORN = 1 363 2T01 369 4 :READA:POKE 
N,A:NEXT 

525 FORN * 1 3760TO1 3822 :READA:POKE 
N,A:NEXT 

527 FORNAI 3696T013759 :READA:POKE 
N,A :NEXT 

5 # 28 FORN = l 38 24T01 38 86 : READA: POKE 
N,A :NEXT 
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530 DATAO,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,48,0,0,48,0,0, 
48,0,0 

535 DATA48,0,0,48,0,0,48,0,0,48, 
0,0,48,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0,0 

540 DATAO,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,96,0,1,2 

48.255.223.255 

545 DATA 127,223,255,15,135,192,7 
,143,128,3,159,0,15,255,0,15 
,255,0,7,255,128 

550 DATA7,255,0,3,255,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

555 DATAO,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,224,0,1, 
248,0,3,252,0,3 

560 DATA254,224,7,255,16,15,255, 

8.31.255.132.127.255.254.255 
,255,255,255,255 

565 DATA255,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,7,0,0,15,128,0,3 
1,192,0,31,192,2 

570 DATA63,240,7,127,248,15,191 , 
248,15,223,248,31,231,252,31 
,251,252,63,248 

575 DATA254,63,255,6,127,255,248 
,255,255,254,255,255,255,255 
,255,255,0,0,0,0,0 

580 DATAO, 0,0,0,0,0,0,0,0,0,0,0, 
0,0,3,2 4 8,3,255,2 40,1 5,2 55,2 
48,63,255,248,0,15 

585 DATA192,!,255,240,1,255,224, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

590 DATAO,0 

592 DATAO,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0,0,255,0,0 

593 DATA255 ,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

595 DATAO, 0,0,0,112,0,3,252,0,15 
,255,128,23,255,64,59,254,24 
0,61,253,248,118 

596 DATAI 71,252,251 ,255,60,255,2 
54,220,123,253,232,119,2S1,2 
48,47,255,240,15 

597 DATA223,224,7,223,224,3,223, 
192,3,219,192,3,210,192,7,21 
9,224,15,219,240 

598 DATAO,0,0 

600 KI = 491 52:FORN =KIT049204:READ 
A :POKEN,A :NEXT 

610 DATAI 62,210,173,30,208,141,6 
2,192,41,68,201,68,208,7,142 
,208,2,142,5,208 

620 DATAO6 ,173,62,192,41,66,201, 

66,208,7,142,198,2,142,3,208 
,96,173,62,192,41 

630 DATA65,201,65,208,246,142,18 

8,2,142,1,208,96 


640 BAM = 49 407 :FORN“BAMT04 9 4 59 : RE 
ADA:POKEN,A:NEXT 

641 DATAI 62,210,173,30,208,141 ,6 
2,192,41,12,201,12,208,7,142 
,208,2,142,5,208 

642 DATA96,173,62,1 92,41,10,201 , 

10.208.7.142.198.2.142.3.208 
,96,173,62,192,41 

643 DATA9,201,9,208,246,142,188, 

2.142.1.208.96 

650 MOVE = 49232 : FORN=MOVET049275 : 

READA:POKEN,A:NEXT 
660 DATA173,7,208,205,1,208,1 76, 

6.206.1.208 

665 DATA76,97,192,238,1,208,205, 
3,208,176 

670 DATA6,206,3,208,76,111, 192,2 
38,3,208,20 5, 5,208,1 76,4,206 
,5,208,96,238 
680 DATA5,208,96 

690 PHAS = 49472:F0RN*PHAST04 9531 : 
READA:POKEN,A:NEXT 

691 DATAI 65,1 97,201,60,240, 1,96, 
169,129,141,4,212,173,7,208, 
174,6,208,142,12 

693 DATA208,141,13,208,160,127,1 
40,21,208,238,12,208,173,12, 
208,208,13,169 

695 DATA128,141,4,212,169,63,141 
,21,208,76,0,192,160,70,136, 
192,0,208,251 
697 DATA76,93,193 
700 RETURN 

799 : 

800 F0RN=828T0886:READA:POKEN,A: 
NEXT 

810 DATAI 74,188,2,202,202,1 42,1 8 
8,2,142,0,208,174,198,2,202, 
202,202,142,198 

815 DATA2,142,2,208,174,203,2,20 
2,142,208,2,142,4,208,174,18 
8,2,174,213,2,202 

820 DATAI 42,21 3,2,142,8,208,1 74, 
211,2,202,142,211,2,142,10,2 
08,76,49,234 
850 RETURN 

879 : 

880 FORN = 989TOl002 :READA:POKEN,A 
: NEXT 

885 DATA120,169,60,141,20,3,169, 
3,1 41 ,21 ,3,88,96,32 

890 : 

891 THRST=890:FORN = 890TO951: READ 
A: POKEN,A:NEXT 

892 DATA165,197,201,2,240,13,165 
,197,201,7,240,19,165,197,19 

7.60.240.25.96 

893 DATAI 74,7,208,202,224,95,240 
,247,1 4 2,7,208,96,1 74,7,208, 
232,224,190,240 
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894 DATA247,142,7,208,96,173,7,2 
08,74,74,74,24,105,25,168,17 
4,6,208,24,32 

895 DATA240,255,96,32 

899 RETURN 

900 POKE53280,0:POKE53281,0 
910 GOSUB1100 

920 PRINT"{CLR)":GOSUB 980 
930 PRINT'M 20 GIU'}(<2>) 

(< 35 I>){HOME}"; 

950 PRINT"{WHTj{ 8 SPAZI} 

[< 4 +>} (< 4 +>}{SPAZI} 

{< 4 +>]{SPAZI}[<+>) 

{ 2 SPAZI}(<+>}{ 4 SPAZI}REC 
ORD{ 3 SPAZI}"; 

952 PRINT"LIVELLO{ 3 SPAZI}{<+>1 
{ 2 SPAZI}[<+>}{ 2 SPAZI} 

(<+>) [<+>]{ 4 SPAZI}[<+>} 

{< 2 +>]{ 3 SPAZI}"BSC 
954 PRINT"{ 2 SPAZI}"FQ" 

{ 5 SPAZI}[<4>|{ 2 SPAZI} 

(< 4 +>] {< 3 +>){ 2 SPAZI} 

{< 3 +>}{ 14 SPAZI }’’; 

956 PRINT"( 10 SPAZI}l<4>) 

{ 2 SPAZI}(<+>} [<4>| 

{ 2 SPAZI} [< + >] { 4 SPAZI} 
{<+>} (<+>){ 14 SPAZI}"; 

958 PRI NT" { 10 SPAZI} l <'-*■> J 

{ 2 SPAZI } [< + >) {< 2 4>} 

[< 4 4>| l< + >) [<. 2 *•>} 

{ 13 SPAZI}"; 

960 PRINT"[< 40 0>|"; 

965 FORSV =1TO12 :PRINTSPC(30)" 
{WHT}{RVS}[<J>i":NEXT 

970 PRINTSPC(31)"[< 9 U>){HOME}" 

971 PRINT"{ 4 GIU 1 }"SPC(31)" 

{CYN}CONTROLLI" 

972 PRINTSPC(31)"{YEL){RVSjCRSRt 
{OFF} «" 

973 PR1NTSPC(33)"GIU 1 {GIU• } " 

974 PRINTSPC(31)"{RVS}CRSR-{OFF} 

E 11 

975 PRINTSPC(34)"SU{G1U 1 }" 

977 PRINTSPC(31)"{RVS}T{OFF}=TEL 
ETR . " 

978 PRINTSPC(31)"{RVS1SPAZIO 
{OFF} 

979 PRINTSPC(32)"FUOCO":GOSUB900 
0:GOTOl000 

980 FORSF-1TO 20:K=(RND(X)*25+RN 
D(Y)*400):POKE1250+K,46:NEXT 

990 F0RCF=55296T055555: POKECF,4 : 
NEXT 

992 F0RCF=55556T055855:POKECF, 1 ; 
NEXT 

994 F0RCF=55856T056295:POKECF,7: 
NEXT 

998 RETURN 
1000 RETURN 
1099 ; 


1100 FORN = ITO30:PRINT"{GIU *}";:N 
EXT 

1110 PRINT"{CLR}":M=1:GOSUB980 
1 200 POKE53277,PEEK(53277)OR(2 t 3 
) :FORX = 2 50TO3STEP-3 
1210 M=M + 3 :POKEV+6,M:POKEV + 7,X 
1220 NEXT 

1230 PRINT"{HOME}{ 7 GIU'}{WHT}" 

1240 PRINT"{ 10 SPAZI}(< 3 +>} 

[< 3 4>) {< 3 4>| 1< 4 >) 

{< 2 +>}" 

1250 PRINT"{ 11 SPAZI}(<+>} 

{ 2 SPAZI)[<+>} (<+>) (<+>) 

{ 3 SPAZI} |<4>] [< + >)" 

1260 PRINT"{ 11 SPAZI){<+>) 

{ 2 SPAZI){< 3 4>) 

{< 3 4>) (< 3 + >] " 

1270 PRINT"{ 11 SPAZI}(<4>) 

{ 2 SPAZI}l<4>){SPAZI}{<->} 
{SPAZI}[<4>}{ 3 SPAZI}{<4>) 
{SPAZI}[< 4 >)" 

1280 PRINT'M 11 SPAZI}[<4>1 

{ 2 SPAZI}l<4>} {SPAZI}(<4>) 
{SPAZI} (< 3 4>]{SPAZI}[<4>} 
{SPAZI}(< 2 4>]" 

1285 M=1 

1290 FORX«3TO250STEP3:M=M43 
1300 POKEV46,M:P0KEV47,X 
1310 NEXT 

1320 PRINT"{ 2 GIU'}“; 

1371 PRINT"{GIU'}{ 7 SPAZI}MISSI 
ONE A UELTA MINORE" 

1 375 FORDELAY=* 1TO2000 :NEXT 

1379 GOSUB7000:RETURN 

1380 S=54272:FORL=STOS424:POKEL, 
0 :NEXT:P0KES45,9 :POKES46,0 : 
PO K ES 4 2 4,1 5 

1391 P0KES41,28 :POKES,49:POKES44 
,17 

1 392 FORN = lTOl25:NEXTN 

1393 POKES44,16 

1394 FORN=lTO70:NEXTN 

1395 P0KES41,28:POKES,49:POKES44 
,17 

1396 FORN=lTOl25:NEXTN 

1397 POKES + 4,16:FORL=STOS424: POK 
EL,0:NEXT:RETURN 

3000 POKE2041 ,21 5:P0KEV4 21,0 
3100 PRINT"{HOME}{ 11 GIU'}{OFF} 

{BLK}{ 10 SPAZI){YEL}F{RED} 

I{WHT}N{PUR}E (GRN)G{RED}I 
{CYN}0{BLU}C{YEL}0"; 

3105 POKE54296,0:LC=0:POKE198,0 
3110 PRINTXXS"{WHT}PREMI (F) PER 
FINIRE, (G) PER RIGIOCARE" 

3200 GETAS:IFA$="F"THENPOKEl98,0 
:SYS198 

3205 IFA$<>"G"THEN3200 
3210 RESTORE:POKE2043,211:P0KEV4 
21,63:T1=TI 
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3211 PRINT'MHOME) { 11 GIU*} 

{ 27 SPAZI}" 

3212 PRINTXXS" {• 39 SPAZI}" 

3213 PRINTXX$;:PRINT" LIVELLO DI 

DIFFICOLTA' 1-4" 

3215 GETFQS:IFFQ$<"1"ORFQ$>"4"TH 
EN3215 

3216 FQ=VAL(FQ$) 

3217 PRINTXXS"{ 39 SPAZI}" 

3218 PRINT" {HOME} { 2 GIU'HGRN}" 
SPC(31 )"PUNTI{HOME}":PRINT" 
{GIU'}"SPC(25),»{ 7 SPAZI} 

II 

3220 PRINT"{HOME}{ 11 GIU'} 

{ 10 DES} .{ 5 SPAZI}.{GRN} 

.{ 3 SPAZI}.{ 3 SPAZI)";:T1 
=T1:GOSUB920:G0T095 

4000 B2=(TI-Tl)-HIT:IFB2>BSCTHEN 
BSC=B2 

4001 PRINT"{CLU){YEL}";:POKEV+21 
,8 :POKE5 32 80,0 :FORL=STOS+2 4 
:POKEL,0 :NEXT:M=1:N=2 

4004 POKE54272,40:POKE54296,15 

4005 POKE54273,30+N:POKES+4,17:P 
RINTrAB(N)”M { 4 SPAZI)N B 

[ <Y>)O(<Y > ) [<Y>}0[<Y>T OP 
{SPAZI}OP B N[<Y>Tm" 

4006 PRINTTAB(N)" M{SPAZI} N 

{ 2 SPAZI}B{SPAZI} [<H>] 

( 3 SPAZI}T<H>}{ 2 SPAZI) 

I < H > ) 1 <N> ) Ltì tì Ll<P>) l£ 

{ 3 SPAZI}" 

4007 PRINTTAB(N)"{ 2 SPAZI}MN 

{ 3 SPAZI}B{ 2 SPAZI}[<H>) 

{ 3 SPAZI}T<H>] { 2 SPAZI}L 
e {SPAZI } [ <H>} M B {<11 > } 
T<N>){ 3 SPAZIUhOME}"; 

4008 N=N+M:IFN>70RN<1THENM=M*(-1 
):Nl=Nl+l:IFNl>4THEN4010 

4009 FORD = lTOl0 :NEXT:POKES+ 4,16: 
GOTO4005 

4010 POKES+ 4,16:PRINT"{ 5 GIU'} 

{YEL}{ 11 SPAZIJPEGASUS RIF 
ORNITA! !" 

4020 PRINT"{ 11 SPAZI}PROSEGUIRE 
LA MISSIONE" 

4030 PRINT"{ 11 SPAZI)VERSO DELT 
A MINORE..." 

4035 M=1 

4036 FORX=3TO250STEP3:M=M+3 

4037 POKEV+6,M:POKEV+7,X 

4038 NEXT 

4045 M=1 

4046 FORX = 250TO3STEP-3 :M=M + 3 

4047 POKEV+6,M:POKEV+7,X 

4048 NEXT 

4050 FORI=1TOl000 :NEXTI:GOSUB920 
:GOTO3000 

4999 : 

5000 POKE56334.0:POKE1,51 
5020 FORADD»1 4 3 36TOl6384 


5030 POKEADD,PEEK(ADD+38912):NEX 
TADD 

5040 POKEl,55:POKE563 34,1 29 :POKE 
53272, (PEEK(53272)AND 24 0)OR 
14 : RETURN 

600 0 POKEV+4 4,7 :SYSTHRST:HIT=HIT 
-2 

6010 SYSTHRST:POKEV+44,9:RETURN 
7000 FORCD=lTO30:PRINT"{GIU'}";: 
NEXT 

7100 PRINT"I<6>}{ 5 SPAZI}GIORNA 
LE DEL CAPITANO":PRINT" 

{ 5 SPAZI)DATA ASTRALE "TIS 

7150 PRINT"{ 5 SPAZI}[< 19 Y>)" 

7200 PRINT"{ 6 SPAZI)LA PEGASUS 
STA VIAGGIANDO VERSO" 

7210 PRINT"{ 5 SPAZI)DELTA MINOR 
E. LA NOSTRA MISSIONE" 

7220 PRINT"{ 5 SPAZI}B' AIUTARE 
ALCUNI RICERCATORI" 

7230 PRINT" { 5 SPAZI }DELI.A FEDER 
AZIONE A COMBATTERE UN" 

7250 PRINT"{ 5 SPAZI}VIRUS MUTAN 
TE CHE MINACCIA" 

7270 PRINT"{ 5 SPAZI}L'ESISTENZA 
DEL LORO AVAMPOSTO." 

7280 PRINT"{ 6 SPAZI}DURANTE IL 
VIAGGIO ABBIAMO" 

7300 PRINT"{ 5 SPAZIJSUBITO DANN 
I AI MOTORI PRINCIPALI." 
7310 PRINT'M 5 SPAZIJDOBBIAMO QU 
INDI PROCURARCI" 

7320 PRINT’M 5 SPAZIJCRISTALLI D 
I DI LITIO SU UN VICINO" 

7330 PRINT'M 5 SPAZI}PLANETOIDE, 
CHE E' PERO' DIFESO" 

7340 PRINT'M 5 SPAZI)DA NUMEROSE 
ASTRONAVI ROBOTIZZATE" 

7350 PRINT'M 5 SPAZIJSENZA EQUIP 
AGGIO...":PRINT:PRINT 
7390 PRINT"{WHT}{ 5 SPAZI)PREMI 
UN TASTO PER CONTINUARE" 
7400 POKEl98,0 :GOSUBl380 

7500 GETAS: IFA$«=""THEN7500 

7501 Tl=TI: RETURN 

8000 POKE53269,PEEK(53269)AND250 

8005 Al=PEEK(53278) :J1=0:POKEV+3 
,200 :POKE2041,21 4:POKE710,1 
:POKE53288,7 

8010 FORN=1TO60:SYSTHRST:SYSMOVE 
:SYSMOVE :SYSTHRST:SYSTHRST: 
SYSTHRST 

8015 POKE2041,210:POKES + 4,129 
8020 SYSTHRST:IF(PEEK(53278)ANDl 
0)=I0THENPOKE5J288,10:POKE2 
041,215:GOTO200 
8025 POKE2041,214 
8030 SYSMOVE:SYSTHRST:SYSMOVE:SY 
STHRST:NEXT:POKE2041,215:PO 
KE53288,10 
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8035 POKKS+4,128 :POKK53269 , 63 :GO 
TOl 32 

9000 PRINTXX$"{ 6 SU)":PRINTSPC( 
35)"{WUT)(< 5 U>)"; 

9010 POKE646.9 

9020 PRINTSPC(35)"{RVS} 


{ 5 SPAZI}"; 

9030 PRINTSPC(35)"{RVS} 
{ 5 SPAZI 

9035 PRINTSPC (35) •’{RVS} 
{ 5 SPAZI}"; 

9040 RETURN 


Per ricevere gli arretrati di compilare il seguente tagliando: 


J. 


Compilare ed inviare in busta chiusa a: 

\SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo . 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 


Anno 


a L. 2.000 cad. per un totale di L. a mezzo 


□ assegno allegato 


□ contanti allegati 
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TELEFONO 0522/8574 36/850278 








